如何在 Outlook 中自動將會議邀請轉寄給特定人員？

在 Outlook 中，您可以手動使用「轉寄」功能，將會議邀請直接傳送給特定人員。但有時，您可能希望在接受會議邀請的同時，自動將該邀請轉發給指定對象。本文將介紹如何快速設定，讓會議邀請在您接受後自動轉發給他人。

使用 VBA 程式碼在 Outlook 中自動將會議邀請轉寄給特定人員

---

使用 VBA 程式碼在 Outlook 中自動將會議邀請轉寄給特定人員

以下是一段實用的 VBA 程式碼，可在您接受會議後自動將會議邀請自動轉發給特定人員，請依下列步驟操作：

1. 按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 在 Microsoft Visual Basic for Applications 視窗中，於 Project 1(VbaProject.OTM) 窗格內雙擊 ThisOutlookSession 以開啟模組，然後將下列程式碼複製並貼上至空白模組中。

VBA 程式碼：將會議邀請自動轉發給特定人員：

Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
    Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
Dim xMeetingItem As MeetingItem
Dim xMeetingResponse As MeetingItem
Dim xForwardMeeting As MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
If TypeOf Item Is MeetingItem Then
    Set xMeetingItem = Item
    Set xAppointmentItem = xMeetingItem.GetAssociatedAppointment(True)
    Set xMeetingResponse = xAppointmentItem.Respond(olMeetingAccepted, True)
    xMeetingResponse.Send
    Set xForwardMeeting = xMeetingItem.Forward
    With xForwardMeeting
        With .Recipients
            .Add "skyyang@addin88.com" 'change address to your own
            .ResolveAll
        End With
        .Send
    End With
End If
End Sub

注意：請務必將上述程式碼中的收件者地址修改為您自己的電子郵件地址。

3. 接著儲存程式碼，並重新啟動 Outlook，讓設定立即生效！

4. 現在，當您收到會議邀請時，系統將自動接受該會議，並立即轉發給您指定的特定人員。

注意：此程式碼僅適用於預設帳戶。