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

日常業務では、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

注：上記のコードでは、「Red Category」を任意の色カテゴリ名に変更できます。

3．その後、このマクロを有効にするには、Outlook を再起動してください。

4．その後、会議メールを承諾して「今すぐ返信を送信」オプションをクリックすると、指定した色カテゴリが承諾済みの会議に即座に割り当てられます。スクリーンショットをご参照ください。

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