¿Cómo puedo reenviar automáticamente las invitaciones a reuniones a una persona específica en Outlook?

En Outlook, puede reenviar manualmente una invitación a una reunión a una persona concreta mediante la función *Reenviar*. Sin embargo, en ocasiones es posible que necesite reenviar automáticamente las invitaciones a reuniones a alguien específico al aceptar la reunión. En este artículo le explicaré cómo configurar el reenvío automático de una invitación a reunión a una persona lo más rápido posible.

Reenvíe automáticamente invitaciones a reuniones a una persona específica en Outlook con código VBA

---

Reenvíe automáticamente invitaciones a reuniones a una persona específica en Outlook con código VBA

A continuación, encontrará un código VBA útil que le permitirá reenviar automáticamente la invitación a una reunión a una persona específica tras aceptarla. Siga estos pasos:

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 Proyecto1 (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: Reenvío automático invitaciones a reuniones a una persona específica:

Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
    Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
Dim xMeetingItem As MeetingItem
Dim xMeetingResponse As MeetingItem
Dim xForwardMeeting As MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
If TypeOf Item Is MeetingItem Then
    Set xMeetingItem = Item
    Set xAppointmentItem = xMeetingItem.GetAssociatedAppointment(True)
    Set xMeetingResponse = xAppointmentItem.Respond(olMeetingAccepted, True)
    xMeetingResponse.Send
    Set xForwardMeeting = xMeetingItem.Forward
    With xForwardMeeting
        With .Recipients
            .Add "skyyang@addin88.com" 'change address to your own
            .ResolveAll
        End With
        .Send
    End With
End If
End Sub

Nota: En el código anterior, sustituya la dirección del destinatario por la suya propia.

3. A continuación, guarde el código y reinicie Outlook para que surta efecto.

4. Ahora, cuando reciba una invitación a una reunión, esta se aceptará automáticamente y, al mismo tiempo, se reenviará inmediatamente a la persona específica indicada.

Nota: Este código solo está disponible para la cuenta predeterminada.