Dim sTemplate As String
sTemplate = Sheets("alle_vorlage").TextBox1
Dim strAn As String
Dim strBetr As String
Dim strBody As String
Dim strAttPfad As String
Dim strThunderPfad As String
Dim strShell As String
Dim x As Integer
Dim erstellterStr As String
x = 7
Do While Cells(x, 4) <> ""
erstellterStr = erstellterStr & "," & Cells(x, 4).Value
x = x + 1
Loop
strThunderPfad = """E:\Thunderbird\Thunderbird.exe"""
strAn = erstellterStr
strBetr = Worksheets("alle_vorlage").Cells(2, 2)
strBody = sTemplate
strShell = strThunderPfad & _
" -compose """ & _
"bcc='" & strAn & "'," & _
"subject='" & strBetr & "'," & _
"body=" & strBody & _
""""
Call Shell(strShell, vbNormalFocus)