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

我们需要发出大量会议请求。我们希望防止用户收到大量需要接受的会议请求，因此我在网上找到了以下脚本，用于自动接受会议，然后从收件箱中删除。以下是脚本：

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

---

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

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

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