Come posso inoltrare automaticamente gli inviti a riunione a una persona specifica in Outlook?

In Outlook è possibile inoltrare manualmente un invito a riunione a una persona specifica tramite la funzione **Inoltra**. Tuttavia, in alcuni casi potrebbe essere necessario inoltrare automaticamente gli inviti a riunione a una determinata persona non appena si accetta l’invito. In questo articolo ti spiegherò come impostare l’inoltro automatico di un invito a riunione a una persona nel modo più rapido possibile.

Inoltra automaticamente gli inviti a riunione a una persona specifica in Outlook con il codice VBA

---

Inoltra automaticamente gli inviti a riunione a una persona specifica in Outlook con il codice VBA

Di seguito trovi un pratico codice VBA che ti permette di inoltrare automaticamente l’invito a una riunione a una persona specifica non appena lo accetti. Procedi come segue:

1. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Nella finestra di Microsoft Visual Basic for Applications, fai doppio clic su ThisOutlookSession nel riquadro Project1 (VbaProject.OTM) per aprire il modulo, quindi copia e incolla il seguente codice nel modulo vuoto.

Codice VBA: Inoltro automatico inviti a riunione a una persona specifica:

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: nel codice indicato sopra, ricordati di sostituire l’indirizzo del destinatario con il tuo.

3. Salva quindi il codice e riavvia Outlook affinché le modifiche abbiano effetto.

4. Ora, quando ricevi un invito a riunione, la riunione verrà accettata automaticamente e contemporaneamente inoltrata alla persona specifica da te indicata.

Nota: questo codice è disponibile esclusivamente per l’Account predefinito.