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)   



L'auteur

Francis Faure
France 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

Description

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é ...

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3