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

MHTML en email(suite) : expédition d'un mail contenant un MHTML avec images (utilisation CDO)

	Description
Retour à la liste L'auteur Francis Faure France Membre Actif (personne physique) # 0000000001 enregistré le 11/10/2004 http://www.wanagain.net 56 ans Faure Francis de la société Design Or Decline Fiche personnelle Note des membres pas de note	Contributions > 12 - Envoyer des Emails MHTML en email(suite) : expédition d'un mail contenant un MHTML avec images (utilisation CDO) # 0000000042 ajouté le 03/11/2004 22:07:35 et modifié le 03/11/2004 consulté 9372 fois Niveau initié Version(s) Foxpro : VFP 7.0
	Pour faire suite aux questions et contributions pour philippe et fred, Et en utilisant la contribution de Mike sur CDO (il a dégainé le premier !) ci-après l'exemple, pour utilisation sur un fichier local : l'url commence par "file://".... je reste persuadé que l'on peut faire la même chose avec l'objet "internetexplorer.application" du style : oB=CREATEOBJECT("internetexplorer.application") =oB.ExecWB(OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER, p_file, null) Mais je n'ai pas encore trouver comment fixer le type (mhtml, html, txt) je regarde actuellement des exemples en c++ Cordialement Francis FAURE
	Code source :
	* utilisation cdo (contrib mike) v_mhtml = Sys(2015)+".mht" oCdo = Createobject("CDO.Message") oCdo.CreateMHTMLBody("http://www.atoutfox.org") oStream = oCdo.getstream() =oStream.SaveToFile(v_mhtml,1) oStream=null Ocdo=Null * expédition avec vfpwinsock set proc to vfpWinsock additive o=CREATEOBJECT("VFP_Winsock_Send_Mail") o.TO = "destinataire@email.com" o.Subject = "Expédition MHTL généré avec CDO" o.data_mhtml= v_mhtml =o.send() o=Null release procedure vfpWinsock erase (v_mhtml)
	Commentaires
	le 04/11/2004, FredA a écrit : si tu regardes ma contrib (editeur html) et mon commentaire, j'ai dégainé le premier héhé ...

MHTML en email(suite) : expédition d'un mail contenant un MHTML avec images (utilisation CDO)

Contributions > 12 - Envoyer des Emails