Mail avec champ RTF + Image

Posté par SPORTY le 4/6/2007 17:32:20

Bonjour,
Je n'ai toujours pas de solution pour envoyer un mail au format HTML en partant d'un champ RTF avec des images.

Quelqu'un pourrait me donner un tuyau ?

Merci

Voici mon code : ( Mon etat comprend un champ RTF qui reprend la saisie de l'utilisateur )

Rep_HTM est une chaîne = "c:\temp"

iAperçu(iHTML,Rep_HTM+"\Mail.htm")
iImprimeEtat(Etat_Mail)

i est un entier
nNumSession est un entier
sContenuHTML est une chaîne
nNumSession = EmailOuvreSessionSMTP("toto@wanadoo.fr","toto","smtp.wanadoo.f
r")

SI nNumSession = 0 ALORS
Erreur("La session n'a pas pu être ouverte. Erreur :" + Email.Erreur)
SINON
Email.AdresseExpéditeur = "toto@wanadoo.fr"
Email.Expéditeur = "toto@wanadoo.fr"
Email.Destinataire = "toto@wanadoo.fr"
Email.NbDestinataire =1
Email.NbAttache = 0
sContenuHTML = fChargeTexte(Rep_Htm+"\Mail.htm")

EmailImporteHTML(sContenuHTML,Rep_HTM)
Email.Sujet = "Essai"

EmailEnvoieMessage("toto@wanadoo.fr")
EmailFermeSession("toto@wanadoo.fr")
FIN