Problem mit Umlauten beim senden von Mails mit Indy

[mlspider]

Hallöchen,

kurz und knapp:

folgenden simplen Code benutze ich zum senden von eMails.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 SMTP.Host:='smtp.strato.de';
 SMTP.Username:='[e-mail]';
 SMTP.Password:='xxxxxxxxx';
 SMTP.Port:= 25;

 idMessage.From.Text := 'Name';
 idMessage.From.Address:= '[e-mail]';
 idMessage.Sender.Text := '[e-mail]';
 idMessage.Recipients.EMailAddresses := '[e-mail]';
 idMessage.Subject := 'Test';

 idMessage.Body.Clear;
 idMessage.Body:=Memo1.Lines;
 SMTP.Connect;
 SMTP.Send(idMessage);
 SMTP.Disconnect;
end;

Ich verwende die Indy 9 Kompos. Leider werden Umlaute nur mit Fragezeichen dargestellt.

[christophspaeth]

Hallo Spider,

ich würde mal tippen, dass dein Emailprogramm eine andere Zeichensatzcodierung annimmt (z.B. UTF-8) als du in die Mail reinschreibst.

Wenn du nichts explizit im Header angibst, wird glaube ich angenommen, dass es US-ASCII 7 bit ist.
D.h. du musst noch

Delphi-Quellcode:

idMessage.CharSet := 'ISO-8895-15';

einfügen oder wenn du deinen Text nach utf-8 umcodierst eben

Delphi-Quellcode:

idMessage.CharSet('UTF-8');
...
idMessage.Body:=AnsiToUtf8(Memo1.Lines);

Ich hab's jetzt nicht nachgestellt, sondern nur theoretisch rausgesucht - bin aber grad auch nicht so tief in Indy drinnen. Hoffe trotzdem dass es hilft ;-)

Chris

[Rene K.]

Ich habe mit RAD2009 und Indy ein ähnliches Problem gehabt und es wie folgt gelöst.

Delphi-Quellcode:

procedure TForm.IdMessage_InitializeISO(var VHeaderEncoding: Char; var VCharSet: string);
begin
  VHeaderEncoding := 'B'; 
  VCharSet := 'ISO-8859-1';
end;
 
procedure TForm.SendMail; 
var IdMessage1: TIdMessage; 
    SubjectStr, BodyText: string;
begin 
  ... 
  IdMessage1.ContentTransferEncoding := 'BASE64'; 
  IdMessage1.OnInitializeISO := IdMessage_InitializeISO; 
  IdMessage1.ContentType     := 'text/plain'; 
  IdMessage1.CharSet         := 'ISO-8859-1'; 
  IdMessage1.Subject         := _MIMEConvert(true, SubjectStr); 
  IdMessage1.Body.Text       := BodyText; 
  ...
end;

Die Funktion _MIMEConvert() wandelt die deutschen Sonderzeichen im String um:
'Ä' wird zu '=?iso-8859-1?q?=C4?='
'€' wird zu '=?iso-8859-15?q?=A4?='.
weitere Details zur Codierung unter http://de.wikipedia.org/wiki/ISO_8859-1. Diese Umwandlung ist allerdings nur für den Mail-Header notwendig. Mit o.g. Einstellungen kann im Mail-Body beliebiger Text als String mit Umlauten übergeben werden.

Weitere Lösungsansätze gibt es auch unter https://forums.codegear.com/thread.jspa?threadID=7019

[Woodpecker]

Ich nutze die folgende Routine fuer _MIMEConvert.

Delphi-Quellcode:

function _MIMEConvert(s : String) : String;
var i : Integer;
begin
    Result := '';
    for i := 1 to Length(s) do begin
        if s[i] = '€' then begin
            Result := Result + '?=ISO-8859-15?Q?=A4?='
        end else if Ord(s[i]) > $99
            then Result := Result + '=?ISO-8859-1?Q?=' + Format('%x',[Ord(s[i])]) + '?='
            else Result := Result + s[i];
    end;

end;

Hierbei sei angemerkt, dass bei mehreren aufeinanderfolgenden Umlauten die Ausgabe kuerzer erfolgen koennte...