Как автоматически назначать цветовую категорию собраниям после их принятия в Outlook?

В повседневной работе вы можете получать несколько писем о собраниях в Outlook. Иногда вы хотите назначать собраниям определенную цветовую категорию автоматически, когда они принимаются. Обычно вы можете назначить их вручную, но установить их по одному будет проблематично. В этой статье я расскажу о том, как сделать это автоматически в Outlook.

Автоматически назначать цветовую категорию собраниям после их принятия с помощью кода VBA

Автоматически назначать цветовую категорию собраниям после их принятия с помощью кода VBA

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. В Microsoft Visual Basic для приложений окно, дважды щелкните Эта сессия Outlook из Проект1 (VbaProject.OTM) панель, чтобы открыть режим, а затем скопируйте и вставьте следующий код в пустой модуль.

Код 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

документ автоматически классифицирует собрания 1

Внимание: В приведенном выше коде вы можете изменить Красная категория к желаемому названию цветовой категории.

3. А затем перезапустите Outlook, чтобы запустить этот макрос.

4. Затем, приняв письмо о встрече, нажмите Отправить ответ сейчас опция, конкретная цветовая категория будет сразу назначена принятой встрече. Смотрите скриншот:

документ автоматически классифицирует собрания 2