Outlook会议请求自动接受和删除

Question

我们需要发送大量会议请求。我们希望阻止用户收到大量会议请求，以便我在网上找到以下脚本来自动接受会议，然后从收件箱中删除。这是脚本：

Sub AutoAcceptMeetings(oRequest As MeetingItem)

If oRequest.MessageClass <> "IPM.Schedule.Meeting.Request" Then
  Exit Sub
End If

Dim oAppt As AppointmentItem
Set oAppt = oRequest.GetAssociatedAppointment(True)

Dim oResponse
 Set oResponse = oAppt.Respond(olMeetingAccepted, True)
 oResponse.Send

oRequest.Delete

End Sub

我现在需要的是能够在收到主题行中具有指定标题的会议请求时强制我们的交换中的所有邮箱运行此脚本。

Answer 1

您需要创建一个运行该代码的COM插件，并将其安装在您要自动接受会议请求的所有计算机上。

如果您不想检查请求的主题，可以将每个邮箱配置为自动接受所有请求（文件|选项|日历|自动接受或拒绝）。