Hallo Hans,
das mit der Formatierung ist nicht so einfach, da die Daten hier aus der Zwischenablage eingefügt werden.
Für den Versand mit Thunderbird probiere mal die folgeden Version:
Sub Thunderbird()
Dim lngLetzte As Long
Dim strMailAufbau As String
With ActiveSheet
'letzte beschrieben Zeile in Spalte E ermitteln
lngLetzte = .Cells(Rows.Count, 4).End(xlUp).Row
'Bereich in den Spalten D und E kopieren
.Range("D1:E" & lngLetzte).Copy
End With
'Pfad für Thunderbird ggf. anpassen
strMailAufbau = "C:\Program Files (x86)\Mozilla Thunderbird\Thunderbird.exe" & _
" -compose format=1,preselectid=id1" & _
",to='MaxMustermann@beispiel.de',subject='Muster'"
Shell strMailAufbau, vbMaximizedFocus
Application.Wait (Now + TimeValue("0:00:03"))
'Zwischenablage mit STRG + V einfügen
SendKeys "^(V)", True
Application.Wait (Now + TimeValue("0:00:01"))
'Kopierauswahl aufheben
Application.CutCopyMode = False
End Sub
Gruß
M.O.