Envoie mail HTML par session Outlook

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

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, 15h27

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, 18h11

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, 13h17

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

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

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

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

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 ) ?

**GEY3008** · 26/05/2018, 14h21

Bonjour
J'ai essayé un autre code. Je reçois bien le mail.
Sauf que, dans le corps du mail, au lieu de la mise en forme, il est inscrit tout le code 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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
 
//Définition des variables
m_OutLook est un objet OLE dynamique // Objet "OutLook.Application"
//m_NameSpace est un objet OLE dynamique // Objet NameSpace, "MAPI"                   
m_NameSpace est un objet OLE dynamique // Objet NameSpace, "MAPI"
//m_NameSpace est une chaine
m_Folder est un objet OLE dynamique // Objet Folder, dossier OutLook
//m_folder est une chaine
m_Item est un objet OLE dynamique // Objet Item
//m_numItemCourant est un entier // N° de l'item en cours
sUtilisateur est une chaîne // Nom de l'utilisateur
 
sDest est une chaîne // Destinataire
sDestCopie est une chaîne // Destinataire en copie
sDestCopieC est une chaîne // Destinataire en copie cachée
nNbDestinataires est un entier
NbPiecesJointes est un entier
Tab_PiecesJointes est un tableau dynamique
QUAND EXCEPTION
	Erreur(ExceptionInfo(errRésumé))
	FinProgramme()
FIN
// Initialisation du dialogue avec OutLook
m_OutLook=ObjetActif("OutLook.Application")
SI m_OutLook=Null ALORS m_OutLook=allouer un objet OLE "OutLook.Application"
SI m_OutLook=Null ALORS
	Erreur("L'accès à OutLook par OLE a échoué.","Vérifiez que la version complète d'OutLook (pas ""OutLook Express""), livrée avec le pack Office, est bien installée.")
	FinProgramme()
FIN
m_NameSpace=m_OutLook>>GetNameSpace("MAPI")
SI m_NameSpace=Null ALORS
	Erreur("Erreur lors de la connexion au ""NameSpace"" MAPI.")
	FinProgramme()
FIN
 
sUtilisateur="moi-même"
 
// Se positionne sur le dossier OutLook demandé
m_Folder = m_NameSpace>>GetDefaultFolder(6)
 
// Regroupement de Destinataires
sDest="xxxxx@xxxxxx.com"
 
//***********************************************************
// ENVOI DE MAIL
//***********************************************************
Rep_PiecesJointes est une chaîne
i,j sont des entiers=0
libérer Tab_PiecesJointes
// Crée l'item dans OutLook
m_Item = m_OutLook>>CreateItem(0)
 
// Sujet
m_Item>>Subject = "Test 4"
 
m_Item>>Body = [
<!-- 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-->
]
sHeader est une chaîne = "<META HTTP-EQUIV=""Content-Type"" CONTENT=""text/html; charset=iso-8859-1"">"
 
// Déclaration importance
m_Item>>importance=2
 
// Destinataires    
nNbDestinataires=1
m_Item>>To = sDest
m_Item>>cc = sDestCopie
m_Item>>bcc = sDestCopieC
 
// Pièces jointes
POUR i=1 A NbPiecesJointes
	// Attachement du fichier au message dans OutLook
	m_Item>>Attachments>>Add(Rep_PiecesJointes+"\"+Tab_PiecesJointes[i])
FIN
// Vérification des adresses des destinataires
SI PAS m_Item>>Recipients>>ResolveAll() ALORS
	// Affichage d'OutLook pour résolution du pb
	m_Item>>Display()
SINON
	// Envoi du ou des mail(s)
	m_Item>>Send()
	Info("Mails envoyés avec succés")
FIN
m_Item=Null

Envoie mail HTML par session Outlook

WinDev

Discussions similaires

Partager

Partager