아웃룩에서 회의를 수락한 후 자동으로 색상 카테고리를 할당하려면 어떻게 해야 하나요?

Author: Xiaoyang Last Modified: 2025-08-06

일상적인 업무에서 아웃룩에서 여러 개의 회의 이메일을 받을 수 있습니다. 때로는 회의를 수락할 때 특정 색상 카테고리를 자동으로 할당하고 싶을 수 있습니다. 일반적으로 수동으로 할당할 수 있지만, 이를 하나씩 설정하는 것은 번거로울 수 있습니다. 이 문서에서는 아웃룩에서 이를 자동으로 수행하는 방법에 대해 설명하겠습니다.

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