Hallöchen,

kurz und knapp:

folgenden simplen Code benutze ich zum senden von eMails.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 SMTP.Host:='smtp.strato.de';
 SMTP.Username:='info@xxx.de';
 SMTP.Password:='xxxxxxxxx';
 SMTP.Port:= 25;

 idMessage.From.Text := 'Name';
 idMessage.From.Address:= 'info@xxx.de';
 idMessage.Sender.Text := 'info@xxx.de';
 idMessage.Recipients.EMailAddresses := 'zzz@yyy.de';
 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.

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
idMessage.CharSet := 'ISO-8895-15'; einfügen oder wenn du deinen Text nach utf-8 umcodierst eben

markieren

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

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

zusammenfalten · markieren

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

Ich nutze die folgende Routine fuer _MIMEConvert.

zusammenfalten · markieren

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