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. 이후 회의 이메일을 수락하고 「지금 응답 보내기」 옵션을 클릭하면 지정한 색상 범주가 수락된 회의에 즉시 적용됩니다。 스크린샷 참조：

참고： 이 코드는 기본 데이터 계정에만 적용됩니다。