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

著者：シャオヤン最終更新日：2024年08月21日

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

フォワードミーティングは、VBAコードを使用してOutlookで特定の人に自動的に招待します

フォワードミーティングは、VBAコードを使用してOutlookで特定の人に自動的に招待します

これは、会議の招待を受け入れた後、特定の人に自動転送するのに役立つ便利なVBAコードです。次のようにしてください。

1。を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、ダブルクリック このOutlookSession 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

注意：上記のコードでは、受信者のアドレスを自分のアドレスに変更する必要があります。