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
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