Heute ist wohl "blutiger Anfängertag"
Versuchs mal damit. Ungetestet und ohne Garantie.
Sub Mailversand()
Dim r As Integer
Dim oApp As New Outlook.Application
Dim oMail As Outlook.MailItem
r = 3
Do While Cells(r, 2) <> ""
Set oMail = oApp.CreateItem(olMailItem)
With oMail
.To = Cells(r, 2)
.Subject = "Aktualiserung To-Do-Liste"
.HTMLBody = "Hallo, <br><br>bitte aktualisieren Sie die To-Do-Liste, treten sie bei eventuellen Problemen hinsichtlich der To-Do's mit dem/der Vorgesetzten in Kontakt. "
.Send
Cells(r, 3).Value = Now
End With
Set oMail = Nothing
r = r + 1
Loop
End Sub
|