Outlook で特定の人物からの会議依頼を自動的に承認するには、どうすればよいですか？

Outlook で会議の招待を受け取った際、手動で会議依頼を承認し、送信者に返信する必要がありますか？特定の人物からの会議依頼を自動的に承認する簡単な方法があれば便利ですよね。この記事でご紹介する方法が、きっとお役に立ちます！

VBA コードで特定の人物からの会議依頼を自動承認する

---

VBA コードで特定の人物からの会議依頼を自動承認する

以下の VBA コードを使えば、Outlook で特定の人物から届いた会議依頼を自動的に承認できます。次の手順に従って設定してください。

1。「Alt＋F11」キーを押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2。Microsoft Visual Basic for Applicationsウィンドウで、左側のペインにあるThisOutlookSessionをダブルクリックしてコードウィンドウを開き、以下の VBA コードを貼り付けてください。スクリーンショットを参照してください：

VBA コード：Outlook で特定の人物からの会議依頼を自動承認する

Public WithEvents GItems As Outlook.Items
'Updated by ExtendOffice 20180814
Private Sub Application_Startup()
    Set GItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GItems_ItemAdd(ByVal Item As Object)
Dim xMtRequest As MeetingItem
Dim xAppointmentItem As AppointmentItem
Dim xMtResponse As MeetingItem
If Item.Class = olMeetingRequest Then
    Set xMtRequest = Item
    Set xAppointmentItem = xMtRequest.GetAssociatedAppointment(True)
    If xAppointmentItem.GetOrganizer.Name = "Sender Name" Then
        With xAppointmentItem
            .ReminderMinutesBeforeStart = 45
            .Categories = "Orange Category"
            .Save
        End With
        Set xMtResponse = xAppointmentItem.Respond(olMeetingAccepted)
        xMtResponse.Send
        xMtRequest.Delete
    End If
End If
End Sub

注：コード内の「送信者名」を、実際に表示したい送信者の名前に置き換えてください。

3。コードを保存し、「Alt＋Q」キーを押して、Microsoft Visual Basic for Applicationsウィンドウを閉じます。

4。このコードを有効にするには、Outlook を再起動してください。

今後、コードで指定した人物から送信された会議依頼を受信すると、会議は自動的に承認され、送信者に返信メールが送信されます。

注：会議の招待を受信するメールアカウントは、Outlook 内の既定のアカウントである必要があります。

；

---

関連記事：

• Outlook で会議の招待を辞退しながら、カレンダー上には予定を残す方法は？
• Outlook で今後のすべての定期会議を辞退する方法は？