Mail mit mehrzeiligen Body

[catweasel]

Moin

Ich möchte aus meinem Programm heraus eine Mail mit Outlook versenden.
Es gelingt mir nicht den Body-Text mehrzeilig zu machen, egal wie ich die jeweilige Zeile abschließe, sie wird immer direkt an die erste Zeile drangehängt.

Ausgabe im Outlook:

Code: Alles auswählen

erste Zeilezweite Zeiledritte Zeile

Das ist der Progammteil:

Code: Alles auswählen

var aReceiver, aSubject, aBody      : string;
begin
   aReceiver := 'john@doe.net';
   aSubject  := 'Subjekt-Zeile';
 
   aBody     := 'erste Zeile'+#10#13+
                'zweite Zeile'+chr(13)+
                'dritte Zeile';
 
   if not (OpenURL('mailto:'+aReceiver+'&subject='+aSubject+'&body='+aBody)) then
      MessageDlg ('Mailversand nicht möglich!', mtInformation,[mbOK],0);
end;

Wie kann ich einen mehrzeigen Text in den Body vom Mailclient bekommen?

Gruß
Michael

[theo]

Naja, #10#13 ist auch nicht CRLF sonden LFCR.
Und nur #13 ist Wagenrücklauf (CR) ohne Zeilenvorschub (LF).

Was ist mit #13#10 ?

[catweasel]

Naja, #10#13 ist auch nicht CRLF sonden LFCR.
Und nur #13 ist Wagenrücklauf (CR) ohne Zeilenvorschub (LF).

Was ist mit #13#10 ?

Keine Änderung

hätte mich auch überrascht, ist die Reihenfolge nicht egal? Ich hatte auch schon

Code: Alles auswählen

 chr(13)+ chr(10)

versucht, aber leider mit dem gleichen Ergebnis.

[baumina]

ich würds mal mit '%0D%0A' versuchen.

[wp_xyz]

Geht das: https://stackoverflow.com/questions/103 ... body-lines ?

[catweasel]

Geht das: https://stackoverflow.com/questions/103 ... body-lines ?

ich würds mal mit '%0D%0A' versuchen.

Jep, das funktioniert
Danke für die Hilfe

Gruß
Michael

[theo]

Ja gut, mir war nicht klar, was OpenUrl hinten raus genau benutzt.
Diese Lösung ist aber auch nur die halbe Wahrheit

Richtiger wäre, den normalen Text durch

Code: Alles auswählen

EncodeURL(aBody);  //unit synacode in Synapse http://synapse.ararat.cz/doc/help/synacode.html

zu bearbeiten.

Das wäre dann z.B. so:

Code: Alles auswählen

var
  aBody: string;
begin
  aBody := 'erste Zeile' + #13#10 + 'zweite Zeile' + #13#10 +   
    'dritte Zeile';
  Memo1.Text := EncodeURL(aBody);
end;  

Und raus kommt:

Code: Alles auswählen

erste%20Zeile%0D%0Azweite%20Zeile%0D%0Adritte%20Zeile

Evtl. auch EncodeQuotedPrintable.