Outlookで特定の人物からの会議リクエストを自動的に受け入れるにはどうすればよいですか？

Author: Siluvia Last Modified: 2025-05-23

Outlookで会議の招待を受け取った場合、手動で会議リクエストを受け入れ、送信者に返信を送信する必要があります。Outlookで特定の人物からのリクエストを自動的に受け入れる簡単な方法はありますか？この記事で紹介する方法がお役に立ちます。

VBAコードを使用して特定の人物からの会議リクエストを自動的に受け入れる

VBAコードを使用して特定の人物からの会議リクエストを自動的に受け入れる

以下のVBAコードを使用すると、Outlookで特定の人物から送信された会議リクエストを自動的に受け入れることができます。以下のように操作してください。

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

2. Microsoft Visual Basic for Applications ウィンドウで、左ペインにある ThisOutlookSession をダブルクリックしてコードウィンドウを開き、以下のVBAコードをそのウィンドウにコピーします。スクリーンショットをご覧ください：

doc-auto-accept-meeting-1

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でのデフォルトアカウントである必要があります。