Outlookで特定の人に会議の招待を自動転送するにはどうすればよいですか？

Author: Xiaoyang Last Modified: 2025-05-23

Outlookでは、手動で「転送」機能を使用して、会議の招待を特定の人に直接転送できます。しかし、時々、会議を受け入れたときに、その会議の招待を特定の人に自動的に転送したい場合があります。この記事では、できるだけ早く特定の人に会議の招待を自動転送する方法について説明します。

VBAコードを使用して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

ノート: 上記のコードでは、宛先アドレスを自分のものに変更する必要があります。