Hallo,

mit Hilfe des unten stehenden Code versende ich E-Mails. Das funktioniert auch gut, allerdings macht er mir im Mail-Body keine Zeilenumbrüche.

Sub subSendMailByThunderbird()
Dim strTo As String, strSubject As String, strBody As String, strCommand As String
strTo = "abcd@xyz.de"
strSubject = "Mailtest Thunderbird"

strBody = "Testmail mit Thunderbird aus VBA" & vbNewLine & "Testmail Zeile2"

strCommand = "C:\Programme\Mozilla Thunderbird\thunderbird.exe"
strCommand = strCommand & " -compose " & Chr$(34) & "mailto:" & strTo & "?"
strCommand = strCommand & "subject=" & Chr$(34) & strSubject & Chr$(34) & "&"
strCommand = strCommand & "body=" & Chr$(34) & strBody & Chr$(34)

Call Shell(strCommand, vbNormalFocus)
End Sub

in der Zeile strBody = wird der Text für den Body der E-Mail festgelegt. Wobei es keine Rolle spielt wie ich den Zeilenumbruch angeben, also vbNewLine, oder vbCr & vbLf, oder chr(13) & chr(10). Das Ergebnis sieht immer so aus:

Testmail mit Thunderbird aus VBA Testmail Zeile2

Ich habe dann versucht den Text in HTML zu übergeben. Dann schreibt er mir aber schlicht und einfach den HTML-Code mit in den Mail-Body.

Im Netz habe ich leider nichts dazu gefunden. Thunderbird ist auf dem neuesten Stand. Bin für jede Idee dankbar.

Grüße
Klaus

Du übergibts den Zeilenumbruch der Shell.
Es wundert mich, dass da überhaupt etwas funktioniert, insbesondere weil die Anführungszeichen auch nicht so richtig passen.
Dein Command sieht so aus:

Versuchs mal mit \r\n. Ich habe keine Ahnung, ob Thunderbird das richtig interpretiert.
So in etwa wäre mein Ansatz:was zu folgendem Befehl führt:

Eine andere Alternative könnte URL-Schreibweise sein:

Danke, der Tipp mit der URL-Schreibweise war der richtige.

Gruß
Klaus