Come posso ritardare l'invio di un invito a riunione in Outlook?

In genere, è possibile usare la funzione di invio ritardato per programmare l’invio di un messaggio in un momento specifico anziché immediatamente. Tuttavia, a volte si potrebbe voler ritardare l’invio di un invito a riunione proprio come si fa con un’e-mail normale. Come si può inviare un invito a riunione all’orario desiderato in Outlook?

Ritarda l’invio di un invito a riunione in Outlook con codice VBA

---

Ritarda l’invio di un invito a riunione in Outlook con codice VBA

Potrebbe non esistere un metodo diretto per posticipare un invito a riunione in Outlook, ma il seguente codice VBA può aiutarti. Ecco come procedere:

1. Innanzitutto, devi creare un’attività. Nella nuova finestra dell’attività:

(1.) Specifica l’oggetto, Data di inizio, Data di fine per la riunione;

(2.) Imposta una data Data promemoria e un orario in cui desideri inviare l’invito alla riunione;

(3.) Digita il messaggio della riunione personalizzandolo in base alle tue esigenze.

2. Dopo aver creato l’attività, fai clic sull’opzione Salva e chiudi per chiudere questa finestra.

3. Successivamente, tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic, Applications.

4. Nella finestra di Microsoft Visual Basic, 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: Ritarda l’invio di un invito a riunione:

Private Sub Application_Reminder(ByVal Item As Object)
    Dim xTaskItem As TaskItem
    Dim xAppointmentItem As AppointmentItem
    Dim xRcpArr() As String
    If (Item.Class <> olTask) Or (LCase(Item.Subject) <> "Meeting test") Then
        Exit Sub
    End If
    Set xTaskItem = Item
    xRcpArr = VBA.Split("yy@addin99.com,sky@addin99.com,ruby@addin99.com", ",")
    Set xAppointmentItem = Outlook.Application.CreateItem(olAppointmentItem)
    With xAppointmentItem
        .MeetingStatus = olMeeting
        For i = 0 To UBound(xRcpArr)
            .Recipients.Add (xRcpArr(i))
        Next
        .Subject = xTaskItem.Subject
        .Location = "Office room 1002"
        .Start = xTaskItem.StartDate + #2:00:00 PM#
        .Body = xTaskItem.Body
        .Duration = 120
        .ReminderSet = True
        .ReminderMinutesBeforeStart = 20
        .Save
        .Send
    End With
    xTaskItem.MarkComplete
    Set xTaskItem = Nothing
End Sub

Nota: nel codice sopra riportato, «Meeting test» è l’oggetto che hai creato per la riunione al passaggio 1. Inoltre, devi personalizzare le informazioni relative a indirizzi dei destinatari, luogo della riunione, ora di inizio e durata della riunione in base alle tue esigenze.

5. Salva e chiudi il codice, quindi riavvia Outlook affinché le modifiche abbiano effetto.

6. Da questo momento, ogni volta che il promemoria dell’attività compare all’orario specifico impostato, Outlook invierà automaticamente l’invito alla riunione.