|
Vielen Dank,
ich habe das mal soweit eingebaut und es scheint auch zu klappen, nur hab ich das Problem das bei der Verarbeitung des Strings am Ende nicht alles richtig übergeben wird.
Das Problem macht das , im Text.
z.B.:
So soll der Text sein: "Sehr geehrte Damen und Herren, ich freue mich..."
So wird der Text ausgegeben: "Sehr geehrte Damen und Herren"
Evtl habe ich einen Fehler in der Call Shell Funktion?
Hier der Code für den E-Mail import:
Dim sTemplate As String
sTemplate = Sheets("alle_vorlage").TextBox1
'sTemplate = Sheets("alle_vorlage").Shapes(1).TextFrame2.TextRange.Text
'Sheets("alle_vorlage").Cells(40, 1) = sTemplate
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
'Thunderbrid öffnen
strThunderPfad = """E:\Thunderbird\Thunderbird.exe"""
strAn = erstellterStr 'E-Mail Adressen
strBetr = Worksheets("alle_vorlage").Cells(2, 2) 'Betreff der Mail
strBody = sTemplate 'E-Mailtext
strShell = strThunderPfad & _
" -compose """ & _
"bcc='" & strAn & "'," & _
"subject='" & strBetr & "'," & _
"body=" & strBody & _
""""
'Stop
Call Shell(strShell, vbNormalFocus)
Danke und Gruß,
Mumbrumse
|