Mail avec champ RTF + Image |
Sujet: Mail avec champ RTF + Image par SPORTY sur 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 |