Outlookで会議を受け入れた後に、自動的に色カテゴリを割り当てるにはどうすればよいですか？

Author: Xiaoyang Last Modified: 2025-08-06

日常業務の中で、Outlookで複数の会議メールを受け取ることがあるかもしれません。時には、会議を受け入れたときに特定の色カテゴリを自動的に割り当てたい場合もあります。通常は手動で割り当てることができますが、一つ一つ設定するのは面倒です。この記事では、Outlookでこれを自動化する方法について説明します。

VBAコードを使用して、会議を受け入れた後に自動的に色カテゴリを割り当てる

VBAコードを使用して、会議を受け入れた後に自動的に色カテゴリを割り当てる

1. 「ALT + F11」キーを押したままにし、「Microsoft Visual Basic for Applications」ウィンドウを開きます。

2. 「Microsoft Visual Basic for Applications」ウィンドウで、「Project1(VbaProject.OTM)」ペインから「ThisOutlookSession」をダブルクリックしてモジュールを開き、次のコードを空白のモジュールにコピーして貼り付けます。

VBAコード: 会議を受け入れた後に自動的に色カテゴリを割り当てる

Public WithEvents SentItems As Outlook.Items
Private Sub Application_Startup()
    Set SentItems = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
End Sub
Private Sub SentItems_ItemAdd(ByVal Item As Object)
Dim xMeetingItem As Outlook.MeetingItem
Dim xMeetingItemAccepted As Outlook.MeetingItem
Dim xAppointmentItem As Outlook.AppointmentItem
On Error Resume Next
If TypeOf Item Is MeetingItem Then
    Set xMeetingItem = Item
    If InStr(xMeetingItem.Subject, "Accepted:") = 1 Then
        Set xMeetingItemAccepted = xMeetingItem
        Set xAppointmentItem = xMeetingItemAccepted.GetAssociatedAppointment(True)
        With xAppointmentItem
            .Categories = .Categories & "Red Category"
            .Save
        End With
    End If
End If
End Sub