如何在 Outlook 中自动拒绝来自特定人员的会议邀请？

在 Outlook 中，我们可以通过创建规则，自动拒绝来自特定人员的部分会议邀请。那么，具体该如何操作呢？本文将为您详细介绍操作步骤。

在 Outlook 中自动拒绝来自特定人员的会议邀请

自动拒绝来自特定人员的会议邀请，并同时从日历中删除该会议

---

在 Outlook 中自动拒绝来自特定人员的会议邀请

请按以下步骤操作完成此任务：

1 首先，您需要创建一个用于拒绝会议邀请的邮件模板。在新建邮件窗口中输入拒绝会议邀请的邮件内容。参见截图：

2 然后将该邮件另存为模板格式，请单击文件> 另存为，在另存为窗口中，将邮件输入名称至文件名文本框中，然后选择 Outlook 模板（*.oft）文件类型，指定保存格式下拉列表中选择，参见截图：

注意：在您选择 Outlook 模板（*.oft）后，系统会自动打开默认的用户模板文件夹。

3 点击保存按钮即可保存邮件模板，并关闭邮件窗口。

4 接下来，您可以创建规则。请在开始选项卡下点击规则 > 管理规则和通知，参见截图：

5 在规则和通知对话框中，点击新建规则，在电子邮件规则选项卡下，参见截图：

6 在弹出的规则向导窗口中，点击对我接收的邮件应用规则选项，在从空白规则开始区域，参见截图：

7 然后点击下一步按钮，在弹出的对话框中，在 第 1 步：选择条件 列表框内，勾选来自某人或通讯组（某人或通讯组）链接，打开规则地址对话框，选择您希望自动拒绝会议邀请的人员，参见截图：

8 点击确定按钮，继续在此对话框中，滚动并勾选为会议邀请或更新选项，在 第 1 步：选择条件 列表框中，参见截图：

9 继续点击下一步按钮，在下一个对话框中：

（1.）在 第 1 步：选择操作 列表框中，勾选使用特定模板进行回复选项；

（2.）然后点击特定模板链接，打开选择答复模板对话框；

（3.）在选择答复模板对话框中，将查找范围下拉框设置为用户模板文件系统选项；

（4.）然后，选择您刚刚创建的邮件名称。

（5.）点击打开按钮，立即体验高效操作。

10 返回原始对话框，继续勾选删除操作选项，在 第 1 步：选择操作 列表框中，参见截图：

11 接着点击下一步> 下一步，进入最后一步。在完成规则设置区域，指定规则名称，并勾选启用此规则，具体操作请参考 第 2 步：设置规则选项 中的截图：

12 点击完成按钮即可完成此规则，然后点击确定关闭对话框。

13 从此以后，收到该特定人员发来的会议邀请时，将自动向对方发送拒绝邮件，并同时删除该会议消息。

---

---

自动拒绝来自特定人员的会议邀请，并同时从日历中删除该会议

第一种方法是发送一封告知对方您无法参会的邮件，但会议仍会保留在您的日历中。如果您希望同时从日历中删除相关会议，可以参考以下 VBA 代码实现自动处理。

1 按住 ALT + F11 组合键，即可打开 Microsoft Visual Basic for Applications 窗口。

2 在 Microsoft Visual Basic for Applications 窗口中，双击 Project 1(VbaProject.OTM) 窗格中的 ThisOutlookSession，打开模块后，将以下代码复制粘贴到空白模块中。

VBA 代码：自动拒绝会议邀请并同时从日历中删除相关会议：

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim xEntryIDs
Dim xItem
Dim i As Integer
Dim xMeeting As MeetingItem, xMeetingDeclined As MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
xEntryIDs = Split(EntryIDCollection, ",")
For i = 0 To UBound(xEntryIDs)
    Set xItem = Application.Session.GetItemFromID(xEntryIDs(i))
    If xItem.Class = olMeetingRequest Then
        Set xMeeting = xItem
        xMeeting.ReminderSet = False
        If VBA.LCase(xMeeting.SenderEmailAddress) = VBA.LCase("yy@addin99.com") Then 'Specify the person you need
            Set xAppointmentItem = xMeeting.GetAssociatedAppointment(True)
            xAppointmentItem.ReminderSet = False
            Set xMeetingDeclined = xAppointmentItem.Respond(olMeetingDeclined)
            xMeetingDeclined.Body = "Dear, " & vbCrLf & _
                                    "I am not at office. " & vbCrLf & _
                                    "I'm sorry that I will not attend the meeting invitations."
            xMeetingDeclined.Send
            xMeeting.Delete
        End If
    End If
Next
End Sub

3 接下来，保存并关闭代码窗口。此后，来自该特定人员的会议邀请将自动被拒绝，对方会收到一封拒绝邮件，并且该会议会自动从您的日历中移除。