Envoi d'un mail en format html avec Outlook

**LescureImage** · 20/04/2021, 16h34

Bonjour,

Je suis sous Builder XE7.

J'ai un objet TRichViewEdit qui me permets d'importer ou de créer des fichiers en format html.

Je veux envoyer par mail un message que j'ai créé avec cet éditeur (ou un fichier en format html quelconque), message html contenant des liens et des images.

J'utilise la procédure suivante, procédure qui fonctionne avec un fichier texte, mais le fichier html transféré ressort en fichier texte dans le corps du mail, ce qui est normal vu le code que j'utilise (zone castée en WideString). Ma question est de savoir comment indiquer à Outlook que le corps de mon message est en format html, et comment passer ce contenu ?

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
 
 
	Variant Vo, Vn, Vn2, Attachments;
	     	try {
		Vo = Variant::GetActiveObject("Outlook.Application");
	}
	catch (...) {
		Vo = Variant::CreateObject("Outlook.Application");
	}
	Vn = Vo.OleFunction(WideString("GetNameSpace"), WideString("MAPI"));
	Vn2 = Vo.OleFunction(WideString("CreateItem"), 0);
	Vn2.OleFunction(WideString("Display"));
 
 
       AnsiString bodyS = "";
       for (int i = 0; i < RichViewEdit1->LineCount; i++) {
		   bodyS = bodyS + RichViewEdit1->GetItemTextW(i) ;
       }
 
	Vn2.OlePropertySet(WideString("Body"), WideString(bodyS));

Merci pour vos conseils.

**DjmSoftware** · 21/04/2021, 19h46

Salut
inspire toi du code VB suivant

Code VB :

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
Private Sub cmdSend_Click()
 
Dim strHTML As String
Dim oEmail As Outlook.MailItem
Dim appOutlook As Outlook.Application
 
Set appOutlook = New Outlook.Application
Set oEmail = appOutlook.CreateItem(olMailItem)
 
oEmail.To = Me.txtTo
oEmail.Subject = Me.txtSubject
 
strHTML = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">" & _
          "<HTML><HEAD>" & _
          "<META http-equiv=Content-Type content=""text/html; charset=iso-8859-1"">" & _
          "<META content=""MSHTML 6.00.2800.1516"" name=GENERATOR></HEAD>" & _
          "<BODY><DIV STYLE=""font-size: 11px; font-face: Tahoma;"">"
 
oEmail.HTMLBody = strHTML & Replace(Me.txtBody, vbCrLf, "<br>") & "</DIV></BODY></HTML>"
 
 
oEmail.Send
 
Set oEmail = Nothing
Set appOutlook = Nothing
 
End Sub

dans ton code il te suffit d'intégrer le code strHTML avant le corps de ton texte

cordialement

Envoi d'un mail en format html avec Outlook [Web/Reseaux]

C++Builder

Discussions similaires

Partager

Partager