Delphi XE7 / TIdSMTP / Unicode

[bgeltenpoth]

Danke, Danke, Danke für das "auf die Spur setzen"...jetzt geht es...ich war echt verzweifelt...und dann sieht man manchmal den Wald vor lauter Bäumen auch nicht...ich hatte wahrscheinlich in der Zwischenzeit auch schon mal die richtige Lösung selber gefunden. Was leider erschwerend hinzu kam war die Tatsache das die beiden Methoden GetMsgBody und GetMsgSubject zwar einen Delphi String zurück liefern...der aber aus einer mit UTF-8 codierten XML Datei stammt und von daher schon nicht korrekt war...jetzt funktioniert es mit dieser Lösung, also gaaanz einfach:

Delphi-Quellcode:

msg := TIdMessage.Create(nil);
    try
      msg.From.Address := Dmod.Params.SmtpSender;
      Destination := msg.Recipients.Add;
      Destination.Address := Dmod.Params.SmtpReceiver;
      msg.Subject :=GetMsgSubject(aAlarm);
      msg.ContentType := ContentType_TEXT_PLAIN;
      msg.CharSet := CharSet_UTF8;
      msg.Body.Text := GetMsgBody(aAlarm);
      SmtpClient.connect;
      try
        SmtpClient.Send(msg);
      finally
        SmtpClient.Disconnect(True);
      end;
    finally
      msg.Free;
    end;