Mon but est d'envoyer un email avec un corps de message en html et une piece jointe. Tout marche bien sans la piece jointe. Par contre, dès que j'ajoute la pièce jointe, plus de html ...
J'utilise Indy 9 avec Delphi 7.

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
 IdMessage1:=TIdMessage.Create(nil);
  IdSMTP1:=TIdSMTP.Create(nil);
 
  With IdMessage1 do
    Begin
      CharSet:='iso-8859-1';
      Encoding:=meMIME;
      ContentType:='text/html';
      Body.Add('<b>Mon message </b>');
      From.Text:='moi@mondomaine.com';
      Recipients.EMailAddresses:='toi@tondomaine.com';
      Subject:='mon sujet';
      TIdAttachment.Create(IdMessage1.MessageParts,'tralala.pdf);
    End;
  IdSMTP1.Host:='mail.monserveur.com';
  IdSMTP1.Connect();
 
  try
    IdSMTP1.send(IdMessage1);
  finally
    IdSMTP1.Disconnect;
  End;
 
  IdMessage1.Free;
  IdSMTP1.Free;
Si qqn a une idée...

Ah, j'ai essaye également ceci, mais ça marche pas mieux
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
With TIdText.Create(IdMessage1.MessageParts) do
         begin
           ContentType:='text/html';
           Body.Add('<b>Mon message </b>');
         end;