如何在Outlook中自动将会议邀请转发给特定的人？

Author: Xiaoyang Last Modified: 2025-05-07

在Outlook中，您可以手动使用“转发”功能直接将会议邀请转发给特定的人。但是，有时在接受会议时，您可能需要自动将会议邀请转发给某个特定的人。本文将介绍如何尽可能快速地自动将会议邀请转发给某人。

使用VBA代码在Outlook中自动将会议邀请转发给特定的人

这里有一个有用的VBA代码，可以帮助您在接受会议邀请后自动将其转发给特定的人，请按照以下步骤操作：

1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，双击 Project1(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

注意：在上面的代码中，您应将收件人地址更改为自己的地址。