Jak automaticky přiřadit kategorii barev schůzkám po jejich přijetí v aplikaci Outlook?

Ve své každodenní práci můžete v Outlooku obdržet více e-mailů ze schůzek. Někdy si přejete schůzkám automaticky přiřadit určitou kategorii barev, jakmile jsou přijaty. Normálně je můžete přiřadit ručně, ale bude obtížné je nastavovat jeden po druhém. V tomto článku budu hovořit o tom, jak to automaticky dosáhnout v aplikaci Outlook.

Po jejich přijetí pomocí kódu VBA automaticky přiřaďte schůzkám kategorii barev

Po jejich přijetí pomocí kódu VBA automaticky přiřaďte schůzkám kategorii barev

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, dvakrát klikněte ThisOutlookSession z Project1 (VbaProject.OTM) v podokně otevřete režim a poté zkopírujte a vložte následující kód do prázdného modulu.

Kód VBA: Automaticky přiřadit kategorii barev schůzkám po jejich přijetí

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 auto kategorizovat schůzky 1

Poznámka: Ve výše uvedeném kódu můžete změnit Červená kategorie na požadovaný název kategorie barev.

3. A poté restartujte Outlook a spusťte toto makro.

4. Poté, co přijmete e-mail o schůzce, klikněte na Zašlete odpověď hned teď možnost, bude konkrétní přijatá schůzka najednou přiřazena konkrétní barevná kategorie. Viz screenshot:

doc auto kategorizovat schůzky 2