Come ritardare l'invio dell'invito alla riunione in Outlook?

Normalmente, puoi applicare la funzione Ritardo consegna per l'invio di un messaggio in un momento specifico invece che in questo momento. Ma, a volte, vuoi ritardare l'invio di un invito a una riunione come un'email. Come potresti inviare un invito a una riunione all'ora desiderata di cui hai bisogno in Outlook?

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

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

Potrebbe essere, non esiste un modo diretto per ritardare un invito a una riunione in Outlook, ma il codice VBA sottostante può farti un favore, per favore fai come segue:

1. Innanzitutto, dovresti creare una nuova attività. Nel nuovo Task finestra:

(1.) Specificare l'oggetto, la data di inizio, la data di fine della riunione;

(2.) Impostare una data e un'ora di promemoria in cui si desidera inviare l'invito alla riunione;

(3.) Digita il messaggio della riunione di cui hai bisogno.

doc ritardo invio riunione 1

2. Dopo aver creato l'attività, fare clic su Salva e chiudi opzione per chiudere questa finestra.

3. Quindi, tieni premuto il pulsante ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

4. Nel Microsoft Visual Basic, Applications Edition finestra, fare doppio clic Questa sessione di Outlook dal Progetto1 (VbaProject.OTM) riquadro per aprire la modalità, quindi copia e incolla il codice seguente nel modulo vuoto.

Codice VBA: ritardare l'invio di un invito a una 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(",,", ",")
    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

doc ritardo invio riunione 2

Note:: Nel codice sopra: Test dell'incontro è l'oggetto che hai creato per la riunione nel passaggio 1; e dovresti modificare le informazioni di indirizzi dei destinatari, luogo della riunione, ora di inizio ed durata della riunione al tuo

5. Salva e chiudi il codice, quindi riavvia Outlook per rendere effettivo questo codice.

6. D'ora in poi, quando il promemoria dell'elemento dell'attività viene visualizzato all'ora specifica impostata, Outlook invierà automaticamente l'invito alla riunione.