Indy SMTP Email wie Body encoding setzen

[Kostas]

Hallo Zusammen,


Hat jemand eine Idee wie das encoding beim body gesetzt werden kann.

Das sollte gesetzt werden.

Code:

Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable

Wenn das nicht gesetzt wird, können manche Email-Clients die Umlaute nicht richtig darstellen.

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
var Attachment : TIdAttachment;
begin
  idSMTP.Host := 'mail.server.de';
  idSMTP.Username := 'user';
  idSMTP.Password := 'pwd';
  idSMTP.Port := 25;
  idSMTP.Connect;

  idMessage.Clear;
  idMessage.From.text := '[e-mail]';
  idMessage.Sender.text := idMessage.From.text;
  idMessage.Recipients.EMailAddresses := '[e-mail]';
  idMessage.CCList.EMailAddresses := '';
  idMessage.BccList.EMailAddresses := '';
  idMessage.Subject := 'Umlaute öäüß ÖÄÜ';
  idMessage.Body.Add('Umlaute öäüß ÖÄÜ');

  idSMTP.Authenticate;
  idSMTP.Send( idMessage );


  idSMTP.Disconnect;


end;

Gruß Kostas