Möchte ein Reminder per Mail an mehrere Personen verschicken. Da ich auf den Geschmack von VBA gekommen bin, habe ich mir den folgenden Code zusammengesucht. Da ich die Sicherheitsabfrage umgehen möchte, habe ich zusätzlichen Code eingefügt.
Es erscheint die Fehlermeldung: Next ohne For. Was mache ich falsch?
Sub Reminder()
Dim MyOutApp As Object, MyMessage As Object
Dim i As Long
For i = 1 To 70
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = Cells(i, 1) 'E-Mail Adresse
Mail.Importance = 1
.Subject = Cells(i, 2) '"Betreffzeile"
Mail.body = "Hallo" & vbCrLf & vbCrLf & _
"Die erwähnte Abrechnung ist noch ausstehend." & vbCrLf & vbCrLf & _
"Bitte möglichst rasch nachreichen. Vielen Dank" & vbCrLf & vbCrLf & _
"Gruss Frédéric " & vbCrLf & vbCrLf & _
"(Dieses Mail wurde automatisch versandt)" & vbCrLf & vbCrLf
.Send
Next i
Set MyOutApp = Nothing 'CreateObject("Outlook.Application")
Set MyMessage = Nothing 'MyOutApp.CreateItem(0)
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.AppActivate Mail
WshShell.SendKeys ("%s")
Set Mail = Nothing
Set outl = Nothing
Set WshShell = Nothing
Application.Wait (Now + TimeValue("0:00:01"))
Next i
End Sub
Vielen DankGruss
Frédéric