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

Nel lavoro quotidiano, potresti ricevere numerosi inviti a riunioni in Outlook. A volte, vorresti assegnare automaticamente una specifica categoria colore alle riunioni non appena le accetti. Anche se è possibile farlo manualmente, configurarle una per una sarebbe lungo e poco pratico. In questo articolo, scoprirai come automatizzare questa operazione direttamente in Outlook.

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

---

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

1. Tieni premuti i tasti «ALT + F11» per aprire la finestra di Microsoft Visual Basic, Applications.

2. Nella finestra di «Microsoft Visual Basic, Applications», fai doppio clic su «ThisOutlookSession» nel riquadro "Project1 (VbaProject.OTM)" per aprirne il modulo, quindi copia e incolla il codice seguente nel modulo vuoto.

Codice VBA: Assegna automaticamente una categoria 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

Nota: Nel codice riportato sopra, puoi sostituire «Categoria rossa» con il nome della categoria colore desiderata.

3. Riavvia quindi Outlook per attivare la macro.

4. Dopodiché, una volta accettato l’invito alla riunione e selezionata l’opzione «Invia subito la risposta», la categoria colore specificata verrà assegnata immediatamente alla riunione accettata. Vedi screenshot:

Nota: Questo codice si applica esclusivamente all’account dati predefinito.