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

Générer un fichier MHTML (.eml) depuis un fichier HTML (texte simple) pour l'expédier via VfpWinsock   



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

Générer un fichier MHTML (.eml) depuis un fichier HTML (texte simple) pour l'expédier via VfpWinsock
# 0000000033
ajouté le 29/10/2004 01:53:45 et modifié le 29/10/2004
consulté 12362 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0
VFP 5.0

Description

Suite à une question de Philippe et Fred dans le NewsGroup,

Voici la réponse pour :
la transformation d'un fichier HTML (simple pas d'image) en fichier MHTML (pour expédition via VFPwinsock)

Il s'agit simplement de rajouter une entête... qui va bien,
pour les images c'est une autre histoire, car il faut rajouter les images encodées en base64 dans un "boundary"
(prochain article...)

Cordialement

Francis FAURE

ps VFPwinsock : www.xfrx.fr/vfpwinsock

Code source :
* But : démo à Philippe et Fred (newsgroup) de conventir un fichier html tout simple en mhtml...
* fichier HTML (fichier contenant que du html... pas d'image)
* pour les images c'est une autre histoire (encodage base 64) ... cela sera la version suivante

local v_html, v_mhtml, v_from, v_to, v_subject, v_date, v_f, v_safety

#define CRLF Chr(13)+Chr(10)

* fichier html source
v_html = "texte.htm"

* fichier html destination
v_mhtml = "texte.eml"

* from = expéditeur : a noter que vfpwinsock supprimera cela ... donc peut être vide ! mis pour compatibilité .eml
v_from = "Francis <francis.faure@dord.com_nospam>"

* to = destinataire : a noter que vfpwinsock supprimera cela ... donc peut être vide ! mis pour compatibilité .eml
v_to = "Fred <frederic.steczycki@nowhere.org>"

* subject = sujet : a noter que vfpwinsock supprimera cela... donc peut être vide ! mis pour compatibilité .eml
v_subject = "Exemple de transformation d'un html en mhtml"

* date = date par défaut du systeme à l'exec : a noter que vfpwinsock supprimera cela... donc peut être vide ! mis pour compatibilité .eml
v_date = Dtoc(Date())+" "+Time()

if not File(v_html)
  ? v_html + "n'existe pas"
  return
endif

v_f = FileToStr(v_html)
v_f = 'From: '+v_from + CRLF + ;
      'To: '+v_to + CRLF + ;
      'Subject: '+v_subject + CRLF + ;
      'Date: '+v_date + CRLF + ;
      'MIME-Version: 1.0' + CRLF + ;
      'Content-Type: text/html; charset="Windows-1252' + CRLF + ;
      'X-MimeOLE: Produced By Demo Francis' + CRLF + ;
      CRLF + ;
      v_f

v_safety = Set("safety")
set safety off
=StrToFile(v_f, v_mhtml, 0)
set safety &v_safety


* control en double cliquant sur texte.eml...

* expédition avec vfpwinsock
set proc to vfpWinsock additive
  o=CREATEOBJECT("VFP_Winsock_Send_Mail")
  o.TO        = "destinataire@email.com"
  o.Subject   = "Demo"
  o.data_mhtml= v_mhtml
  =o.send()
  o=Null
release procedure vfpWinsock


Commentaires
le 29/10/2004, FredA a écrit :
ok, j'attends donc patiemment la suite...

le 29/10/2004, Francis Faure a écrit :
Fred,
Merci de ta satisfaction concernant ma réponse rapide a ta demande...
;)

le 03/11/2004, Mike Gagnon a écrit :
Fred

Va voir "Comment créer un document MHTML avec CDO" dans la section trucs et astuces.

le 10/11/2008, Olivier Hamou a écrit :
Salut Francis,
Si tu pouvais nous rajouter la syntaxe pour les images ce serait top !

Olivier

le 10/11/2008, Francis Faure a écrit :
Olivier
c'est une très vielle contribution...
depuis le traitement mhtml est intégré à VFPwinsock.
et il y a d'autres contribs sur atoutfox permettant de faire la même chose
Cordialement

le 10/11/2008, Olivier Hamou a écrit :
J'utilise VFP Winsock, et j'ai un fichier html sur mon disque,
et j'aimerais si possible ne pas utiliser CDO car ne fonctionne pas sur toutes les machines.

As tu une idée pour VfpWinsock puisse envoyer mon html avec la possiblite de recevoir mes images dans le corps.

Cordialement,

le 11/12/2008, Golani a écrit :
Bonour,
je suis nouvellement inscrit sur Atoutfox et voici ma question: J'execute une requete avec select sur une colone d'une table dans Foxpro 9, je voudrais ensuite qu'un mail soit automatiquement emvoye si la colone nest pas vide. Jusque la je n'ai pas de probleme. Ce que je ne parviens pas a faire cest ecrire ce qu'il ya dans la colone en tant que mesage du mail. Qulqu;un a til une idee?
Cordialement


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