Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.270 Beiträge
 
Delphi 10.4 Sydney
 
#1

D2007, TIdSmtp, Unicode-Mail mit Anhängen

  Alt 3. Feb 2017, 11:03
Hallo,
ich muss eine Mail mit Unicode schicken.
Ohne Anhang klappt das mit der Hilfe von Utf8Encode wunderbar,
mit Anhang laut dem Empfänger nicht.

Delphi-Quellcode:
        
        TextPart := TIdText.Create(Msg.MessageParts, Msg.Body);
        TextPart.CharSet := 'utf-8';
        TextPart.ContentType := 'text/plain'; {do not localize}
        TextPart.ContentTransfer := '8bit';
        
        //TextPart.Body.Text := Utf8Encode(A1ClickMessage.Body);
        // neuer Versuch mit WideString
        sWideString := A1ClickMessage.Body;
        TextPart.Body.Text := Utf8Encode(sWideString);
Schaue ich mir die internen Indy-Routinen an (TIdMessageClient.SendBody),
werden sowoh bei mit Anhang als auch bei ohne Anhang die gleichen Bytes geschrieben.

Irgendwas macht Indy (oder eher ich ...) aber falsch, weil eine per Thunderbird geschickte Mail
laut Empfänger korrekt ist.

Ich habe so die Befürchtung, dass ich eine alte Indy-Version oder eine zu alte (jaja, altes Projekt) Delphi-Version habe.

Komisch ist halt, dass es bei der Mail ohne Anhang keine Probleme gibt.


Jemand einen Tipp für mich?
Heiko
  Mit Zitat antworten Zitat