Mailversand Bezug Zellen klappt nicht
F.
Ich möchte einen Reminder selektiv an mehrere Personen versenden. In der untenstehenden Version ist dies möglich.
Jedoch gehen viele Mails an Assistenten, diese möchte ich persönlich ansprechen. Deshalb habe ich das Wort "Hallo" und den Vornamen verbunden (="Hallo"&Zelle). Klappte ebenfalls.
Damit der Text sehr einfach zu ändern ist, habe ich die Texte in Zellen gelegt und im .body mit Cells(iCounter, Zellennummer) verknüpft. Nach dieser Änderung haut es mir das "Hallo X" beim Massenversand raus.
Ersetze ich den gesamten Text im Makro mit Zellbezügen, haut es alle Zelltexte raus.
Was mache ich falsch?
Sub ()
Dim olApp As Object
Dim wsShell
Dim iCounter As Long
If MsgBox("Soll der automatische E-Mail Versand gestartet werden?", _
vbYesNo + vbQuestion, "Frage") = vbNo Then Exit Sub
For iCounter = 1 To 30
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.To = Cells(iCounter, 1)
.Subject = Cells(iCounter, 2)
.Body = "Hallo" & vbCrLf & vbCrLf & _
"Die erwähnte Abrechnung ist bei uns noch nicht eingetroffen." & vbCrLf & _
"Bitte möglichst rasch nachreichen. Vielen Dank!" & vbCrLf & vbCrLf & _
"Gruss Frédéric" & vbCrLf & vbCrLf & _
"(Dieses Mail wurde automatisch versandt)" & vbCrLf
.Display
Set wsShell = CreateObject("WScript.Shell")
wsShell.AppActivate olApp
wsShell.SendKeys "%s"
Set wsShell = Nothing
Application.Wait (Now + TimeValue("0:00:05")) 'Wartezeit 10 sek
End With
Next iCounter
Set olApp = Nothing
MsgBox "Der E-Mail Versand ist abgeschlossen"
End Sub
Gruss
Frédéric