Sub RefReminder()
Dim OutApp, MailItem As Object
Dim objMail As Outlook.MailItem
Dim Verteiler As Outlook.Recipient
Dim LastLine As Integer
Set OutApp = CreateObject("Outlook.Application")
Set objMail = OutApp.CreateItem(olMailItem)
LastLine = ActiveWorkbook.Sheets("Agenda").Cells(Rows.Count, 33).End(xlUp).Row
With objMail
.Sensitivity = 0
.Importance = 1
.Subject = "Agenda-Reminder der " & Cells(4, 5).Value & " am " & Cells(4, 6).Value
.Body = .HTMLBody
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><BODY> Sehr geehrte Damen und Herren, <br> <br> diese Mail dient als Reminder, dass Sie mit einem Thema als Referent auf der im Betreff stehenden Veranstaltung gelistet sind.<br>Bitte bereiten Sie ihre Unterlage entsprechend der veranschlagten Zeit auf. <br><br> Besten Dank und freundliche Grüße, <br><br> i.A. der Projektleitung</BODY></HTML>"
.Display
End With
For i = 9 To LastLine
If Cells(i, 31).Value = "x" Then
objMail.Recipients.Add (Cells(i, 33))
End If
Next i
Set objOLMail = Nothing
Set OutApp = Nothing
End Sub