如何在 Outlook 中自动接受来自指定人员的会议邀请？

在 Outlook 中收到会议邀请时，通常需要手动接受会议请求并向发件人发送回复。有没有更便捷的方法，能够自动接受来自特定人员的会议邀请？本文将为您提供实现这一需求的解决方案。

通过 VBA 代码自动接受来自特定人员的会议请求

---

通过 VBA 代码自动接受来自特定人员的会议请求

以下 VBA 代码可帮助您在 Outlook 中自动接受来自指定人员的会议请求。请按照以下步骤操作。

1. 请按下 Alt+F11 组合键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，双击左侧窗格中的 ThisOutlookSession，即可打开代码窗口，然后将以下 VBA 代码复制到窗口中。见截图：

VBA 代码：在 Outlook 中自动接受来自特定人员的会议请求

Public WithEvents GItems As Outlook.Items
'Updated by ExtendOffice 20180814
Private Sub Application_Startup()
    Set GItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GItems_ItemAdd(ByVal Item As Object)
Dim xMtRequest As MeetingItem
Dim xAppointmentItem As AppointmentItem
Dim xMtResponse As MeetingItem
If Item.Class = olMeetingRequest Then
    Set xMtRequest = Item
    Set xAppointmentItem = xMtRequest.GetAssociatedAppointment(True)
    If xAppointmentItem.GetOrganizer.Name = "Sender Name" Then
        With xAppointmentItem
            .ReminderMinutesBeforeStart = 45
            .Categories = "Orange Category"
            .Save
        End With
        Set xMtResponse = xAppointmentItem.Respond(olMeetingAccepted)
        xMtResponse.Send
        xMtRequest.Delete
    End If
End If
End Sub

注意：请在代码中将“发件人名称”替换为发件人的显示名称，确保操作无误。

3. 保存代码后，按下 Alt+Q 组合键，即可关闭 Microsoft Visual Basic for Applications 窗口。

4. 重启 Outlook 以使该代码生效。

从现在起，凡是由代码中指定人员发起的会议请求都将被自动接受，并且发件人会收到一封回复邮件。

注意：接收会议请求的邮箱账户需设置为您 Outlook 中的默认账户。

；

---

相关文章：

• 如何在 Outlook 中拒绝会议邀请的同时仍将其保留在日历上？
• 如何在 Outlook 中拒绝所有未来的重复会议？