Cum se atribuie automat o categorie de culori întâlnirilor după acceptarea lor în Outlook?

În munca dvs. zilnică, puteți primi mai multe e-mailuri de întâlnire în Outlook. Uneori, doriți să atribuiți automat o anumită categorie de culori întâlnirilor atunci când acestea sunt acceptate. În mod normal, le puteți atribui manual, dar acest lucru va fi dificil să le setați unul câte unul. În acest articol, voi vorbi despre cum să-l realizez automat în Outlook.

Alocați automat categoria de culori întâlnirilor după ce le-ați acceptat cu codul VBA

Alocați automat categoria de culori întâlnirilor după ce le-ați acceptat cu codul VBA

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți dublu clic Această sesiune Outlook de la Project1 (VbaProject.OTM) pentru a deschide modul, apoi copiați și lipiți următorul cod în modulul gol.

Cod VBA: Alocați automat categoria de culoare întâlnirilor după acceptarea acestora

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 clasifica întâlnirile 1

notițe: În codul de mai sus, puteți schimba Categorie roșie la numele categoriei de culoare dorite.

3. Și apoi, reporniți Outlook pentru a declanșa această macro.

4. Apoi, după ce ați acceptat e-mailul întâlnirii, faceți clic pe Trimiteți răspunsul acum opțiunea, categoria de culoare specifică va fi atribuită întâlnirii acceptate simultan. Vedeți captura de ecran:

doc auto clasifica întâlnirile 2