Outlook VBA脚本回复会议请求时oRequest始终为Nothing问题排查

问题核心出在Respond方法的参数设置上：你传入的第二个参数True是SendNow参数，当这个参数为True时，Outlook会直接发送会议响应，不会返回可操作的MeetingItem对象，所以oRequest会被赋值为Nothing，后续调用oRequest.Send自然会报错。

修正后的代码如下，同时优化了变量引用以提升执行效率：

Sub AcceptSelectedMeetingRequests()
    Dim selectedItem As Object
    Dim cAppt As AppointmentItem
    Dim oRequest As MeetingItem
    Dim x As Integer
    
    ' 倒序遍历选中项，避免处理过程中索引混乱
    For x = Application.ActiveWindow.Selection.Count To 1 Step -1
        Set selectedItem = Application.ActiveWindow.Selection.Item(x)
        ' 验证选中对象是会议请求
        If selectedItem.MessageClass = "IPM.Schedule.Meeting.Request" Then
            ' 获取关联的约会，True表示不弹出窗口
            Set cAppt = selectedItem.GetAssociatedAppointment(True)
            ' 将SendNow设为False，获取待发送的响应对象
            Set oRequest = cAppt.Respond(olMeetingAccepted, False)
            ' 发送响应
            oRequest.Send
        End If
    Next x
End Sub

额外说明：

• 倒序遍历选中项是因为处理完一个会议请求后，选中集合的元素会发生变化，倒序可以避免出现索引越界或遗漏项的问题
• 运行前请确保Outlook的宏安全设置允许执行此脚本

内容的提问来源于stack exchange，提问作者Adam J. Kessel