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;