如何在 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 中婉拒所有未來的週期性會議？