ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Envoi un E-MAIL ou charger un site à partir d'une application fox pro

	Description
Retour à la liste L'auteur lotfi072003 Algérie Membre Simple # 0000000489 enregistré le 20/07/2005 http://www.oasis-gestion.com abdelatif belguidoum Fiche personnelle Note des membres pas de note	Contributions > 05 - API et appels systèmes Envoi un E-MAIL ou charger un site à partir d'une application fox pro # 0000000362 ajouté le 04/11/2006 20:40:24 et modifié le 04/11/2006 consulté 9785 fois Niveau débutant Version(s) Foxpro : VFP 5.0 VFP 3.0
	Envoi un E-MAIL ou charger un site à partir d'une application Fox pro
	Code source :
	* Créer une nouvelle forme1 * Ajouter dans la forme1 label1 * placer "http://www.atoutfox.com/" dans la caption du premier label * et la procedure suivante dans l'événement click du label1 LOCAL lcFileName,lcWorkDir,lcOperation tcFileName="http://www.microsoft.com/" IF EMPTY(tcFileName) RETURN -1 ENDIF lcFileName=ALLTRIM(tcFileName) lcWorkDir=IIF(TYPE("tcWorkDir")="C",ALLTRIM(tcWorkDir),"") lcOperation=IIF(TYPE("tcOperation")="C" AND NOT EMPTY(tcOperation),ALLTRIM(tcOperation),"Open") DECLARE INTEGER ShellExecute ; IN SHELL32.DLL ; INTEGER nWinHandle,; STRING cOperation,; STRING cFileName,; STRING cParameters,; STRING cDirectory,; INTEGER nShowWindow RETURN ShellExecute(0,lcOperation,lcFilename,"",lcWorkDir,1) *********************************************************************************************** * Ajouter dans la forme1 label2 * placer placer "http://www.microsoft.com/" dans la caption du premier label * et la procedure suivante dans l'événement click du label2 LOCAL LCFILENAME,LCWORKDIR,LCOPERATION TCFILENAME=" MAILTO:LOTFI072003@Yahoo.fr "+ ; "?SUBJECT= QUESTION à PROPOS SHELLEXECUTE" IF EMPTY(TCFILENAME) RETURN -1 ENDIF LCFILENAME=ALLTRIM(TCFILENAME) LCWORKDIR=IIF(TYPE("tcWorkDir")="C",ALLTRIM(TCWORKDIR),"") LCOPERATION=IIF(TYPE("tcOperation")="C" AND NOT EMPTY(TCOPERATION),ALLTRIM(TCOPERATION),"Open") DECLARE INTEGER ShellExecute ; IN SHELL32.DLL ; INTEGER nWinHandle,; STRING cOperation,; STRING cFileName,; STRING cParameters,; STRING cDirectory,; INTEGER nShowWindow RETURN SHELLEXECUTE(0,LCOPERATION,LCFILENAME,"bonjour",LCWORKDIR,1)
	Commentaires
	le 08/11/2006, Mike Gagnon a écrit : http://www.atoutfox.com/articles.asp?ACTION=FCONSULTER&ID=0000000139 le 08/11/2006, eddymaue a écrit : TcOperation = ? le 08/11/2006, lotfi072003 a écrit : merci ;-) mike je sais que je ss pas le premier qui a utiliser le shellexcute eddymaue vs avez raison "tcoperation" n'apas de role ici j'ai copier ce morceau de mon logicielle il a une autre travail a faire

Envoi un E-MAIL ou charger un site à partir d'une application fox pro

Contributions > 05 - API et appels systèmes