Come ritardare l'invio di un invito a una riunione in Outlook?
Normalmente, puoi applicare la funzione Ritardo Invio per inviare un messaggio in un momento specifico invece che subito. Tuttavia, a volte potresti voler ritardare l'invio di un invito a una riunione come faresti con un'email. Come potresti inviare un invito a una riunione all'ora desiderata in Outlook?
Ritardare l'invio di un invito a una riunione in Outlook con il codice VBA
Ritardare l'invio di un invito a una riunione in Outlook con il codice VBA
Forse non esiste un modo diretto per ritardare un invito a una riunione in Outlook, ma il seguente codice VBA può aiutarti, procedi come segue:
1. Per prima cosa, devi creare una nuova attività. Nella finestra Nuova Attività:
(1.) Specifica l'oggetto, la data di inizio e la data di fine della riunione;
(2.) Imposta una data e ora di promemoria quando vuoi inviare l'invito alla riunione;
(3.) Scrivi il messaggio della riunione come necessario.
2. Dopo aver creato l'attività, clicca sull'opzione Salva e chiudi per chiudere questa finestra.
3. Successivamente, tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.
4. Nella finestra Microsoft Visual Basic for Applications, fai doppio clic su ThisOutlookSession dal riquadro Project1(VbaProject.OTM) per aprire la modalità, quindi copia e incolla il seguente codice 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
Nota: Nel codice sopra: Meeting test è l'oggetto che hai creato per la riunione al passo 1; inoltre, dovresti modificare le informazioni degli indirizzi dei destinatari, la posizione della riunione, l'ora di inizio e la durata della riunione con i tuoi dati.
5. Salva e chiudi il codice, quindi riavvia Outlook per rendere operativo questo codice.
6. Da adesso in poi, quando il promemoria dell'attività apparirà all'ora specificata, Outlook invierà automaticamente l'invito alla riunione.
I migliori strumenti per la produttività in Office
Ultime novità: Kutools per Outlook lancia la versione gratuita!
Scopri la nuovissima versione GRATUITA di Kutools per Outlook con oltre70 funzionalità straordinarie, da utilizzare PER SEMPRE! Clicca per scaricarla subito!
📧 Automazione Email: Risposta automatica (disponibile per POP e IMAP) / Programma invio email / CC/BCC automatico tramite regola durante l'invio / Inoltro automatico (Regola avanzata) / Aggiungi saluto automaticamente / Suddividi automaticamente le email con più destinatari in messaggi individuali...
📨 Gestione Email: Richiama Email / Blocca email di phishing per oggetto e altri criteri / Elimina email duplicate / Ricerca Avanzata / Organizza cartelle...
📁 Allegati Pro: Salva in blocco / Distacca in blocco / Comprimi in blocco / Salvataggio automatico / Distacca automaticamente / Auto Comprimi...
🌟 Magia dell'interfaccia: 😊Più emoji belle e originali / Notifiche per email importanti / Riduci Outlook a icona invece di chiuderlo...
👍 Funzioni rapide: Rispondi a Tutti con Allegati / Email anti-phishing / 🕘Mostra il fuso orario del mittente...
👩🏼🤝👩🏻 Contatti & Calendario: Aggiungi in blocco contatti dalle email selezionate / Dividi un gruppo di contatti in gruppi individuali / Rimuovi promemoria di compleanno...
