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.

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("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

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 e 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.

Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto ... Rapporto rapido, Conta le email selezionate...
E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.