Як автоматично призначити кольорову категорію для нарад після їх прийняття в Outlook?

У своїй щоденній роботі ви можете отримувати кілька електронних листів про зустрічі в Outlook. Іноді ви хочете автоматично призначити конкретну кольорову категорію для нарад, коли вони приймаються. Як правило, ви можете призначити їх вручну, але, це буде складно встановити їх по одному. У цій статті я розповім про те, як автоматично виконати це в Outlook.

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

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

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2, в Microsoft Visual Basic для додатків вікно, двічі клацніть ThisOutlookSession від Проект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

doc автоматично класифікувати зустрічі 1

примітки: У наведеному вище коді ви можете змінити Червона категорія до бажаної назви категорії кольорів.

3. А потім перезапустіть Outlook, щоб запустити цей макрос.

4. Потім, після прийняття повідомлення про зустріч, натисніть і клацніть Надішліть відповідь зараз опція, визначена кольорова категорія буде відразу призначена прийнятій зустрічі. Дивіться знімок екрана:

doc автоматично класифікувати зустрічі 2