Indy-TidSMTP und deutsche Umlaute

[smay]

Hallo community,

ich scheitere im Moment daran, über Indys TIdSMTP-Komponente Mails mit deutschen Umlauten (Betreff und Body) zu versenden. Die Sonderzeichen (äöü߀...) werden immer zerhackt dargestellt. Auch der Versuch, das entsprechende CharSet anzugeben, funktioniert nicht.

Umgebung: Delphi 2009, Indy IndyTiburon vom 21.06.2010

Hat vielleicht jemand ein Beispiel, wie das klappen könnte? Ich habe alle möglichen Varianten ausprobiert: CharSet:="iso-8859-1" oder ContentTransferEncoding := base64... nichts hat geholfen (auch schon alles weggelassen etc.). Lediglich, wenn ich das Subject per Mime von Hand kodiere, bekomme ich im Betreff Umlaute angezeigt, im Body klappt das aber nicht. Es muss doch irgendwie möglich sein, z.B. utf-8 kodierungen hinzubekommen?

Den Artikel: http://www.delphipraxis.net/148194-i...ue-ss-usw.html kenn ich. Leider wird hier eine ältere Version verwendet und irgendwie kann ich mir nicht vorstellen, dass dieser Standard-Fall (EMail mit Sonderzeichen) von den Indy-Entwickler nach all den Jahren unbehandelt bleibt.

Vielen Dank
Sebastian

Code:

procedure TMailer.IdMessage_InitializeISO(var VHeaderEncoding: Char; var VCharSet: string);
begin
  VHeaderEncoding := 'B';
  VCharSet := 'utf-8';
end;

Code:

function TMailer.SendIndyMail: Boolean;
var
  i: Integer;
  Email: TIdEMailAddressItem;
  bodyText: TStringList;
begin
  FSMTP.Host := FSMTPHost;
  FSMTP.Port := FMailPort;
  FSMTP.Username := FSMTPLogin;
  FSMTP.Password := FSMTPPassword;

  // *** setup mail message ***
  FMailMessage.From.Address := FSender;
  FMailMessage.Subject := UTF8Encode(FSubject);

  Email := FMailMessage.Recipients.Add;
  Email.Address := "[e-mail]";


  FMailMessage.OnInitializeISO := IdMessage_InitializeISO;
  FMailMessage.CharSet := 'utf-8';
  FMailMessage.ContentTransferEncoding := '8bit';

  // attachment
  if AttachmentsExists then begin
    FMailMessage.ContentType := 'multipart/mixed';

    with TIdText.Create(FMailMessage.MessageParts) do begin
      Body.Text := FBody;
      CharSet:= 'utf-8';
      ContentType := 'text/plain'
    end;

    for I := 0 to FAttList.Count - 1 do begin
      with TIdAttachmentFile.Create(FMailMessage.MessageParts, FAttList[i]) do begin
        FileName := ExtractFileName(FAttList[i]);
        ContentType := FMimeTable.GetFileMIMEType(FileName);
      end;
    end;
  end


  // *** send mail ***
  try
    try
      FSMTP.Connect;
      FSMTP.Send(FMailMessage);
      Result := True;
    except on E:Exception do
      if not FShutUpOnErr then
        MessageDlg('TMailer.SendIndyMail: ' + E.Message, mtError, [mbOK], 0);
    end;
  finally
    if FSMTP.Connected then
      FSMTP.Disconnect;
  end;
end;