¿Cómo asignar automáticamente la categoría de color a las reuniones después de aceptarlas en Outlook?

En su trabajo diario, puede recibir varios correos electrónicos de reuniones en Outlook. A veces, desea asignar una categoría de color específica a las reuniones automáticamente cuando se aceptan. Normalmente, puede asignarlos manualmente, pero será problemático configurarlos uno por uno. En este artículo, hablaré sobre cómo lograrlo automáticamente en Outlook.

Asigne automáticamente la categoría de color a las reuniones después de aceptarlas con el código VBA

Asigne automáticamente la categoría de color a las reuniones después de aceptarlas con el código VBA

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En la Microsoft Visual Basic para aplicaciones ventana, haga doble clic Esta sesión de Outlook del desplegable Proyecto1 (VbaProject.OTM) panel para abrir el modo y luego copie y pegue el siguiente código en el módulo en blanco.

Código de VBA: asigne automáticamente la categoría de color a las reuniones después de aceptarlas

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 categorizar reuniones 1

Note: En el código anterior, puede cambiar Categoría roja al nombre de la categoría de color que desee.

3. Y luego, reinicie Outlook para activar esta macro.

4. Luego, después de aceptar el correo electrónico de la reunión, haga clic en Envíe el Respond Now opción, la categoría de color específica se asignará a la reunión aceptada de una vez. Ver captura de pantalla:

doc auto categorizar reuniones 2