¿Cómo asignar automáticamente una categoría de color a las reuniones al aceptarlas en Outlook?

En su rutina diaria, es probable que reciba varios correos electrónicos de reuniones en Outlook. A veces, querrá asignar automáticamente una categoría de color específica a esas reuniones al aceptarlas. Aunque puede hacerlo manualmente, resulta tedioso si tiene que configurarlas una por una. En este artículo, le explicaré cómo lograrlo de forma automática en Outlook.

Asigne automáticamente una categoría de color a las reuniones tras aceptarlas mediante código VBA

---

Asigne automáticamente una categoría de color a las reuniones tras aceptarlas mediante código VBA

1. Mantenga pulsadas las teclas «ALT + F11» para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de «Microsoft Visual Basic para Aplicaciones», haga doble clic en «ThisOutlookSession» del panel "Project1 (VbaProject.OTM)" para abrir el módulo y, a continuación, copie y pegue el siguiente código en el módulo en blanco.

Código VBA: Asignación automática de categoría de color a las reuniones tras 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

Nota: En el código anterior, puedes cambiar «Categoría roja» por el nombre de la categoría de color que desees.

3. A continuación, reinicie Outlook para activar la macro.

4. Tras aceptar el correo electrónico de la reunión y hacer clic en «Enviar ahora la respuesta», se asignará inmediatamente la categoría de color específica a la reunión aceptada. Vea la captura de pantalla:

Nota: Este código solo es válido para la cuenta de datos predeterminada.