Ich versuche seit einer geraumen Weile eine einfache Mailsendefunktion in eine vorhandene Applikation zu integrieren.
Dazu öffne ich eine Form in der der Nutzer den Betreff in ein Edit und den Mailtext in ein Memo eingeben kann.
Anschließend wird das so versendet:
Code: Alles auswählen
Edit2.Text := CharsetConversion(Edit2.Text,GetCurCP,ISO_8859_15);
result := SendToEx(absender,Edit1.Text,Edit2.Text,server,Memo1.Lines,benutzer,passwort);
Das Senden funktioniert auch wunderbar, aber: Alle Umlaute werden zu Sonderzeichen verzerrt.
"Testbetreff ä ö ü Ä Ö Ü ß" wird zu "Testbetreff ? ö ? 1/4 ?" ?- Ãœ ß"
Die erste Zeile mit dem CharsetConversion sollte das schon beheben, aber es wird immer schlimmer.
Der Zeichensatz vom Edit2 steht auf DEFAULT_CHARSET
In die function SendToEx in der unit smtpsend von synapse habe ich folgende Zeile eingefügt:
Code: Alles auswählen
t.Insert(0, 'Content-Type: text/plain; charset=iso-8859-15; format=flowed; delsp=yes');
Die wird auch in den Header eingefügt, macht's aber nicht besser.
Jemand eine Idee?
Danke für's Lesen
Christian