Envoie mail HTML par session Outlook

**GEY3008** · 09/05/2018, 17h33

Bonjour
Voila plus de 15 jours que je bataille et scrute internet pour trouver solution à mon problème mais là, je craque !
J'ai essayé de mutltiple codes mais rien n'y fait.
Pourriez-vous m'aidez et me montrer ma nullité svp ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
32
33
34
35
36
37
38
39
40
41
42
43
44
 
CodeHtml est une chaîne
CodeHtml = [
<!-- Page2 13/05/2011 17:45 WebDev 16 16.0.81.4 --><HTML><HEAD><title></title><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=UTF-8">
<META NAME="GENERATOR" content="WEBDEV">
<script>
<!--
var _DO_=null;var _PAGE_=null
function _LOD_COM(event){}
function _UNL_COM(event){}
//-->
</script>
<link rel=stylesheet type=text/css href="bugemail.css">
<link rel=stylesheet type=text/css href="iStyle.css">
<STYLE TYPE=text/css></STYLE></HEAD><BODY topmargin=0 leftmargin=0 marginwidth=0 marginheight=0 bgcolor=#F4F4F4 TEXT=#2D2D2D LINK=#379DC3><FORM NAME=PAGE2 ACTION=Page2.htm target=_self METHOD=POST><script>_DO_=((document.divform!=null)&&(document.divform.document!=null))?document.divform.document:document;_PAGE_=_DO_.PAGE2</script>
<div class=h-0><INPUT TYPE=HIDDEN NAME=WD_BUTTON_CLICK_><INPUT TYPE=HIDDEN NAME=WD_ACTION_></div><TABLE WIDTH=419>
<TR><TD COLSPAN=3 HEIGHT=56/></TR><TR><TD ROWSPAN=2 WIDTH=46/><TD CLASS=Simple-150-iStyle-Gentle-Light valign=middle id="A1" WIDTH=373><FONT SIZE=1>Ceci est un fichier HTML</FONT><br /><B>Ceci est un fichier HTML</B><br /><FONT COLOR=#ff0000><B>Ceci est un fichier HTML</B></FONT><br /><FONT SIZE=5>Ceci est un fichier HTML</FONT><br /><FONT COLOR=#33cc66 SIZE=6>Ceci est un fichier HTML</FONT><br /></TD><TD height=132/>
<TR><TD width=373/><TD/>
</TABLE>
</FORM>
</BODY></HTML><!--1373-->
]
Header est une chaîne = "<META HTTP-EQUIV=""Content-Type"" CONTENT=""text/html; charset=iso-8859-1"">"
 
MonMessage est un Email
MonMessage..Expediteur = "expéditeur@free.fr"
 
Ajoute(MonMessage..Destinataire,"destinataire@free.fr")
MonMessage..Sujet = "Mon sujet"
MonMessage..Message = "Le contenu de mon message"
EmailImporteHTML(MonMessage, CodeHtml,fRepExe())
 
MaSession est un entier
MaSession = EmailOuvreSessionOutlook("")
 
SI MaSession = 0 ALORS
	// Echec d’ouverture de la session
	Erreur("Echec d'ouverture de la session Outlook", ErreurInfo())
SINON
	// Traitement ici
	EmailEnvoieMessage(MaSession)
FIN
 
EmailFermeSession(MaSession)

**diablofr** · 23/05/2018, 14h27

bonjour essaie ce code que j'ai trouvé sur FREEDEV : https://www.freedev.eu/fr/Code_WinDe...entifiant=2743

2eme exemple : email en HTML

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
32
33
34
35
36
37
38
39
40
41
contenu_email_vic_html est une chaîne
contenu_email_vic_html = [
<!-- Page2 13/05/2011 17:45 WebDev 16 16.0.81.4 --><HTML><HEAD><title></title><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=UTF-8">
<META NAME="GENERATOR" content="WEBDEV">
<script>
<!--
var _DO_=null;var _PAGE_=null
function _LOD_COM(event){}
function _UNL_COM(event){}
//-->
</script>
<link rel=stylesheet type=text/css href="bugemail.css">
<link rel=stylesheet type=text/css href="iStyle.css">
<STYLE TYPE=text/css></STYLE></HEAD><BODY topmargin=0 leftmargin=0 marginwidth=0 marginheight=0 bgcolor=#F4F4F4 TEXT=#2D2D2D LINK=#379DC3><FORM NAME=PAGE2 ACTION=Page2.htm target=_self METHOD=POST><script>_DO_=((document.divform!=null)&&(document.divform.document!=null))?document.divform.document:document;_PAGE_=_DO_.PAGE2</script>
<div class=h-0><INPUT TYPE=HIDDEN NAME=WD_BUTTON_CLICK_><INPUT TYPE=HIDDEN NAME=WD_ACTION_></div><TABLE WIDTH=419>
<TR><TD COLSPAN=3 HEIGHT=56/></TR><TR><TD ROWSPAN=2 WIDTH=46/><TD CLASS=Simple-150-iStyle-Gentle-Light valign=middle id="A1" WIDTH=373><FONT SIZE=1>Ceci est un fichier HTML</FONT><br /><B>Ceci est un fichier HTML</B><br /><FONT COLOR=#ff0000><B>Ceci est un fichier HTML</B></FONT><br /><FONT SIZE=5>Ceci est un fichier HTML</FONT><br /><FONT COLOR=#33cc66 SIZE=6>Ceci est un fichier HTML</FONT><br /></TD><TD height=132/>
<TR><TD width=373/><TD/>
</TABLE>
</FORM>
</BODY></HTML><!--1373-->
]
 
MonMessage est un Email
MonMessage..Expediteur = <a href="mailto:moimeme@free.fr">moimeme@free.fr</a>
 
//indiquer ici son adresse email pour le test
Ajoute(MonMessage..Destinataire,<saisir ici le destinataire>)
MonMessage..Sujet = "Mon sujet"
MonMessage..Message = "Le contenu de mon message"
EmailImporteHTML(MonMessage, contenu_email_vic_html,fRepExe())
 
// Ouverture une session SMTP
MaSession est un EmailSessionSMTP
MaSession..AdresseServeur = "smtp.free.fr"
SI PAS EmailOuvreSession(MaSession) ALORS RETOUR
 
// Envoi du message
EmailEnvoieMessage(MaSession,MonMessage)
 
// Fermeture de la session
EmailFermeSession(MaSession)

**GEY3008** · 23/05/2018, 17h11

Je te remercie mais ça n'ira pas.
Je ne passe pas par une session SMTP, je dois récupérer la session de chaque utilisateur Outlook ...
J'y arrive mais je n'arrive pas à envoyer des messages au format HTML.

**LeonCosnyd** · 24/05/2018, 12h17

bonjour, serait-il possible de connaitre le message d'erreur ou l'exception que vous rencontrez svp ?

**GEY3008** · 24/05/2018, 16h04

Aucun message d'erreur, je reçois bien le mail mais il est vierge !

**LeonCosnyd** · 24/05/2018, 16h48

contenu_email_vic_html est une chaîne ANSI

Peux tu essayer en rajoutant "ANSI" ?

As-tu essayé d'envoyer les emails sur d'autres adresses destinataires (gmail, ou autre webmail ) ?

Envoie mail HTML par session Outlook

WinDev

Vue hybride

Discussions similaires

Partager

Partager