Hilfe: E-Mail senden in Excel, ABER ...

Sub MailListFile()
Dim olApp As Object
Dim wsShell
Dim iCounter As Integer
Dim aws As String
If MsgBox("Soll der automatische eMail Versand gestartet werden ?", _
vbYesNo + vbQuestion, "Frage") = vbNo Then Exit Sub
For iCounter = 3 To Cells(Rows.Count, 2).End(xlUp).Row
aws = Cells(iCounter, 7)
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.To = Cells(iCounter, 2)
.CC = Cells(iCounter, 3)
.BCC = Cells(iCounter, 4)
.Subject = Cells(iCounter, 5)
.Body = Cells(iCounter, 6)
If aws  "" Then _
.Attachments.Add aws
.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 "eMail Versand abgeschlossen"
End Sub