Discussion :

[charlyoleg]

Bonjour,

J'ai besoin pour une application d'envoyer des mails en UTF-8, il faut que le sujet ainsi que chaque partie du message soit encodés en UTF-8.

J'ai testé les Indy intégré a D2010 mais cela n'encode pas le sujet, j'ai testé aussi les excellents composant overbyte ICS avec le même résultat.

Encodez-vous vous-même le sujet du message?
Quels composants utilisez-vous?

Merci de vos conseils,
Cordialement,

[charlyoleg]

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

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