Outlook で会議の招待状を特定の人物に自動転送する方法は？

Outlook では、手動で転送機能を使い、会議招待状を特定の人物に直接転送できます。ただし、会議を承諾したタイミングで、その招待状を特定の人物に自動的に転送する必要が生じることもあります。本記事では、会議招待状をできるだけ迅速に特定の人物に自動転送する方法をご紹介します。

VBA コードを使用してOutlook で会議招待状を特定の人物に自動的に転送する

---

VBA コードを使用してOutlook で会議招待状を特定の人物に自動的に転送する

以下は、会議を承諾した後に会議招待状を特定の人物に自動転送するのに役立つ VBA コードです。次の手順に従ってください。

1．ALT + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2．Microsoft Visual Basic for Applicationsウィンドウで、ThisOutlookSessionをProject1 (VbaProject.OTM)ペインからダブルクリックしてモジュールを開き、次のコードを空のモジュールにコピー＆ペーストしてください。

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．これで、会議の招待状を受信すると、その会議は自動的に承諾されると同時に、指定された人物に即座に自動転送されます。

注：このコードはデフォルトのアカウントでのみご利用いただけます。