2 pièce(s) jointe(s)
Envoie de mail au format HTML
Bien le bonjour
Comme dit dans l'intitulé, je cherche à créer un mail au format HTML de sorte à avoir quelque chose qui ressemble à ceci (la partie en rouge):Pièce jointe 607636
Mais je galère à trouver comment faire. J'ai beaucoup fouillé sur le net, mais rien.
Dans mon cas, il s'agit d'envoyer par mail en format html (comme sur l'image juste au dessus) un état que j'ai exporté en html (il s'agit d'un état de test hein :D):Pièce jointe 607637
Voici le code que j'utilise:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
HExécuteRequête(REQ_N_Premiers_Armateurs,hRequêteDéfaut,SAI_n)
sChemin_html est une chaîne = fRepExe() + "\nom_doc.html"
iDestination(iHTML,sChemin_html)
iImprimeEtat(ETAT_n_premiers)
MaSession est un emailSessionSMTP
MaSession..AdresseServeur = "***.***.***.***"
MaSession..Port = 25
SI EmailOuvreSession(MaSession) ALORS
mail est un Email
mail.Expediteur = "***@gmail.com"
Ajoute(mail.Destinataire,SAI_E_mail)
mail.Sujet = SAI_Objet
MonTexteHTML est une chaîne
MonTexteHTML = fChargeTexte(sChemin_html)
mail.ImporteHTML(MonTexteHTML,fRepExe())
SI EmailEnvoieMessage(MaSession,mail) ALORS
Info("Message envoyé")
SINON
Erreur()
FIN
SINON
Info("pas ouvert")
FIN |
Le mail est bien envoyé mais je reçois un mail avec un corps vide.
Au passage, j'utilise webdev 25.
Merci aux bonnes âmes qui voudraient bien venir à mon aide .
