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插件，并将其安装在要自动接受会议请求的所有机器上。

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