Come assegnare automaticamente la categoria del colore alle riunioni dopo averle accettate in Outlook?

Nel tuo lavoro quotidiano, potresti ricevere più email di riunione in Outlook. A volte, si desidera assegnare automaticamente una categoria di colore specifica alle riunioni quando vengono accettate. Normalmente, puoi assegnarli manualmente, ma sarà problematico impostarli uno per uno. In questo articolo, parlerò di come eseguirlo automaticamente in Outlook.

Assegna automaticamente la categoria del colore alle riunioni dopo averle accettate con il codice VBA

Assegna automaticamente la categoria del colore alle riunioni dopo averle accettate con il codice VBA

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare doppio clic Questa sessione di Outlook dal Progetto1 (VbaProject.OTM) riquadro per aprire la modalità, quindi copia e incolla il codice seguente nel modulo vuoto.

Codice VBA: assegna automaticamente la categoria del colore alle riunioni dopo averle accettate

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 categorizza automaticamente le riunioni 1

Note:: Nel codice sopra, puoi cambiare Categoria rossa al nome della categoria di colore desiderata.

3. Quindi, riavvia Outlook per attivare questa macro.

4. Quindi, dopo aver accettato l'email della riunione e fare clic su Invia la risposta ora opzione, la categoria di colore specifica verrà assegnata immediatamente alla riunione accettata. Vedi screenshot:

doc categorizza automaticamente le riunioni 2