For - If - Next - Schleife mit E-Mail-Versand
05.09.2017 22:28:19
kubden82
ich habe mir eine Schleife gebaut, mit der ich verschiedene E-Mails verschicken möchte (inkl. automatischer Adresse, Betreff, Text und Anhang). Die verschiedenen Anhänge werden richtig generiert und liegen auch dort bereit, wo sie "abgeholt" werden sollen.
Leider werden immer die Daten von Sheet(6) genommen. Irgendwie läuft zwar die Schleife durch (es werden mehrere E-Mails erstellt), aber alle Mails haben den gleichen Inhalt, die gleiche Adresse und die gleiche Anlage. Wahrscheinlich wird am Anfang eine Wert irgendwo eingetragen und dann nich beim nächsten i überschrieben. Leider weiß ich nicht wo. Kann mir einer helfen? Vielen Dank schonmal vorab
Hier der Code, bei dem es Probleme gibt:
For i = 6 To Sheets.Count
strBody = "Sehr geehrte Damen und Herren" & vbNewLine & vbNewLine & _
"anbei Blablabla." & vbNewLine & vbNewLine & _
"Die enthaltenden Daten wurden automatisiert erhoben und hiermit an Sie weitergeleitet."
strTh = "C:\Program Files (x86)\Mozilla Thunderbird\Thunderbird.exe " ' Thunderbird als E- _
Mail-Programm
strCommand = strCommand & " -compose " & "to=" & Chr(34) & Sheets(i).Range("T6") & Chr(34) ' _
Empfänger
strCommand = strCommand & ",subject=" & Chr(34) & "Blablabla " & Sheets(6).Range("Q3") & _
Chr(34) ' Betreff
strCommand = strCommand & ",body=" & Chr(34) & strBody & Chr(34) ' Text
strCommand = strCommand & ",attachment=" & "file:///C:\tmp\" & Sheets(i).Name & " " & _
Sheets(i).Range("Q3") & ".pdf" ' Anlage
Shell strTh & strCommand, vbNormalFocus
Next