Outlook VBA Meeting Request

Hallo zusammen,

leider erhalte ich von bestimmten usern immer wieder Meeting Einladungen, die ich automatisch ablehnen möchte. Ich habe dazu ein VBA macro, dies erkennt aber scheinbar nur die erste Einladung und schickt deshalb keine Ablehnung für die eigentlichen Einladungen. Wie müsste ich das ändern?

Sub DeclineSpamMeetings()
Dim myNameSpace As Outlook.NameSpace
Dim myFolder As Outlook.Folder
Dim myMtgReq As Outlook.MeetingItem
Dim myAppt As Outlook.AppointmentItem
Dim myMtg As Outlook.MeetingItem
Dim SenderEmail As String
Dim i As Integer ‘handle up to 10 invites

If DisableEvents = False Then
Set myNameSpace = Application.GetNamespace(“MAPI”)
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
DisableEvents = True
For i = 1 To 10
Set myMtgReq = myFolder.Items.Find(“[MessageClass] = ‘IPM.Schedule.Meeting.Request'”)
If TypeName(myMtgReq) <> “Nothing” Then
If InStr(1, myMtgReq.SenderEmailAddress, “User01@xy.com”) > 0 Or myMtgReq.SenderEmailAddress = “User02@xy.com” Then
SenderEmail = myMtgReq.SenderEmailAddress
Set myAppt = myMtgReq.GetAssociatedAppointment(False)

If Not myAppt Is Nothing Then
Set myMtg = myAppt.Respond(olMeetingDeclined, True, False)
myMtg.Send
myMtgReq.Delete
MsgBox “Auto-Declined meeting (” & SenderEmail & “)”
End If
End If
End If
Next
DisableEvents = False
End If
End Sub

Danke für Eure Hilfe!

Theo