会議出席依頼に自動承諾するマクロ

OutlookのVBAで、送られてきた会議出席依頼に無条件で自動承諾するマクロのサンプル

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)

    Set objItem = Session.GetItemFromID(EntryIDCollection)

    If TypeName(objItem) = "MeetingItem" Then

        Set myAppt = objItem.GetAssociatedAppointment(True)

        Set myMtg = myAppt.Respond(olResponseAccepted, True)

        myMtg.Send

    End If

End Sub