Envoi de mail au format HTML

Mon application adresse des mails
Je suis parti de l'exemple de la FAQ et mon code resemble à ceci :

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

Le texte HTML est le suivant :

Code:

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