Mon application adresse des mails
Je suis parti de l'exemple de la FAQ et mon code resemble à ceci :
Le texte HTML est le suivant :
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 idMessage.Clear; idMessage.BODY.clear; idMessage.Subject := ed_Objet.Text; idMessage.From.Name := ed_Nom.Text; idMessage.From.Address := ed_From.Text; idMessage.ReplyTo.EMailAddresses := ed_From.Text; With TIdText.Create(IdMessage.MessageParts, mem_Texte.Lines) Do Begin ContentType := 'text/plain'; Body.Insert(0, 'Ce message est un message HTML'); end; with TIdText.Create(idMessage.MessageParts, ptTexteHTML) do begin ContentType := 'text/html'; end; End; //---------- Envoi idMessage.Recipients.EMailAddresses := pcMail; TRY idSMTP.Send(idMessage); Result := true; Except on E : exception do begin Result := false; end
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 <html> <body> <b>test</b> </body> </html>
L'envoi s'effectue bien par contre le mail est placé dans indésirable.
Je suppose qu'il s'agit d'un problème d'encodage mais je ne vois pas d'erreur
Merci d'avance de vos remarques
Partager