Jak automatycznie przypisywać kategorie oznaczone kolorami do spotkań po ich zaakceptowaniu w Outlooku?

Podczas codziennej pracy możesz otrzymywać wiele wiadomości e-mail ze spotkaniami w programie Outlook. Czasami chcesz automatycznie przypisać określoną kategorię kolorów do spotkań, gdy zostaną one zaakceptowane. Zwykle możesz przypisać je ręcznie, ale ustawienie ich pojedynczo będzie kłopotliwe. W tym artykule omówię, jak to zrobić automatycznie w Outlooku.

Automatycznie przypisuj kolorową kategorię do spotkań po zaakceptowaniu ich kodem VBA

Automatycznie przypisuj kolorową kategorię do spotkań po zaakceptowaniu ich kodem VBA

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2, w Microsoft Visual Basic for Applications kliknij dwukrotnie Ta sesja programu Outlook z Project1 (VbaProject.OTM) okienko, aby otworzyć tryb, a następnie skopiuj i wklej następujący kod do pustego modułu.

Kod VBA: Automatycznie przypisuj kolorową kategorię do spotkań po ich zaakceptowaniu

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 automatyczna kategoryzacja spotkań 1

Note: W powyższym kodzie możesz zmienić Kategoria czerwona do żądanej nazwy kategorii kolorów.

3. Następnie uruchom ponownie program Outlook, aby wywołać to makro.

4. Następnie po zaakceptowaniu wiadomości e-mail ze spotkania i kliknij Wyślij odpowiedź teraz opcja, określona kategoria kolorystyczna zostanie od razu przypisana do zaakceptowanego spotkania. Zobacz zrzut ekranu:

doc automatyczna kategoryzacja spotkań 2