VBA für Outlook

Sub CheckMailForMeetingRequest(itm As Object)
    Dim app As AppointmentItem, mItem As MeetingItem
    If itm.Class = olMeetingRequest And (itm.SenderName = "Peter" Or itm.SenderName = "Klaus") Then
        Set app = itm.GetAssociatedAppointment(False)
        If Not app Is Nothing Then
            Set mItem = app.Respond(olMeetingDeclined, True, False)
            mItem.Send
        End If
        itm.Delete
    End If
End Sub
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    Dim arrEntryIDs As Variant, objItem As Object
    arrEntryIDs = Split(EntryIDCollection, ",")
    For i = 0 To UBound(arrEntryIDs)
        Set objItem = Application.Session.GetItemFromID(arrEntryIDs(i))
        CheckMailForMeetingRequest objItem
    Next
End Sub