Como encaminhar automaticamente convites de reunião para uma pessoa específica no Outlook?

No Outlook, pode reencaminhar manualmente um convite de reunião para uma pessoa específica utilizando a funcionalidade **Reencaminhar**. Contudo, por vezes, poderá precisar de reencaminhar automaticamente os convites de reunião para alguém assim que aceitar a reunião. Neste artigo, explico como configurar o **reencaminhamento automático** de um convite de reunião para outra pessoa da forma mais rápida possível.

Reencaminhar automaticamente convites de reunião para uma pessoa específica no Outlook com código VBA

---

Reencaminhar automaticamente convites de reunião para uma pessoa específica no Outlook com código VBA

Aqui está um código VBA útil que o pode ajudar a encaminhar automaticamente o convite de reunião para uma pessoa específica após aceitá-lo. Por favor, siga estes passos:

1. Prima e mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Na janela do Microsoft Visual Basic for Applications, faça duplo clique em ThisOutlookSession no painel Project1 (VbaProject.OTM) para abrir o módulo e, em seguida, copie e cole o seguinte código no módulo em branco.

Código VBA: Encaminhamento automático convites de reunião para uma pessoa 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: No código acima, substitua o endereço do destinatário pelo seu próprio.

3. Em seguida, guarde o código e reinicie o Outlook para que as alterações tenham efeito.

4. Agora, sempre que receber um convite de reunião, este será aceite automaticamente e, ao mesmo tempo, a reunião será encaminhada imediatamente para a pessoa específica indicada.

Nota: Este código só está disponível para a Conta padrão.