[D10] envoi de mail en UTF-8

j'ai trouvé une solution, je passe par un
TIdMessage
et
un
TIdSMTP
ensuite je fais :

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
26
27
28
29
30
31
32
33
34
35
 
procedure TForm1.DoInitializeISO(var VHeaderEncoding: Char; var VCharSet:string);
begin
  VHeaderEncoding := 'B';
  VCharSet := 'UTF-8';
end;
 
...
IdMsg := TIdMessage.Create(nil);
  try
    with TIdSMTP.Create(nil) do
    try
      IdMsg.OnInitializeISO := DoInitializeISO;
      IdMsg.ContentType := 'text/html';
      IdMsg.CharSet := 'UTF-8';
      IdMsg.ContentTransferEncoding := 'BASE64';
 
      IdMsg.Body.Add('les caracteres');
      IdMsg.Recipients.emailAddresses := 'ledestinataire@domaine.com';
 
 
      IdMsg.Subject := UTF8Encode('le sujet a encoder');
      IdMsg.From.Address := 'lefrom@domaine.com';
     IdMsg.From.Name := 'aa';
 
      Connect;
      Send(IdMsg);
      Disconnect;
    finally
      Free;
    end;
  finally
    IdMsg.free;
  end;
...