¿Cómo aceptar automáticamente una solicitud de reunión de una persona específica en Outlook?

Al recibir una invitación a una reunión en Outlook, normalmente debe aceptarla manualmente y enviar su respuesta al remitente. ¿Existe alguna forma sencilla de aceptar automáticamente las invitaciones que provienen de una persona específica en Outlook? El método que se describe en este artículo le será de gran ayuda.

Aceptar automáticamente solicitudes de reunión de una persona específica con código VBA

---

Aceptar automáticamente solicitudes de reunión de una persona específica con código VBA

El siguiente código VBA le permite aceptar automáticamente las solicitudes de reunión enviadas por una persona específica en Outlook. Siga estos sencillos pasos.

1. Pulse 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 en el panel izquierdo para abrir la ventana de código y, a continuación, copie el siguiente código VBA en dicha ventana. Vea la captura de pantalla:

Código VBA: Aceptar automáticamente solicitudes de reunión de una persona específica en Outlook

Public WithEvents GItems As Outlook.Items
'Updated by ExtendOffice 20180814
Private Sub Application_Startup()
    Set GItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GItems_ItemAdd(ByVal Item As Object)
Dim xMtRequest As MeetingItem
Dim xAppointmentItem As AppointmentItem
Dim xMtResponse As MeetingItem
If Item.Class = olMeetingRequest Then
    Set xMtRequest = Item
    Set xAppointmentItem = xMtRequest.GetAssociatedAppointment(True)
    If xAppointmentItem.GetOrganizer.Name = "Sender Name" Then
        With xAppointmentItem
            .ReminderMinutesBeforeStart = 45
            .Categories = "Orange Category"
            .Save
        End With
        Set xMtResponse = xAppointmentItem.Respond(olMeetingAccepted)
        xMtResponse.Send
        xMtRequest.Delete
    End If
End If
End Sub

Nota: En el código, sustituya «Nombre del remitente» por el nombre que se muestra del remitente.

3. Guarde el código y, a continuación, pulse las teclas Alt + Q para cerrar la ventana de Microsoft Visual Basic para Aplicaciones.

4. Reinicie Outlook para que el código tenga efecto.

A partir de ahora, las solicitudes de reunión enviadas por la persona especificada en el código se aceptarán automáticamente, y el remitente recibirá un correo electrónico de respuesta.

Nota: La cuenta de correo electrónico que recibe la solicitud de reunión debe ser la cuenta predeterminada en su Outlook.

；

---

Artículos relacionados:

• ¿Cómo rechazar una invitación a una reunión en Outlook y, aun así, conservarla en su calendario?
• ¿Cómo rechazar todas las futuras reuniones periódicas en Outlook?