Come rispondere automaticamente ai messaggi ricevuti quando si è occupati in Outlook?
A volte capita di voler rispondere automaticamente ai messaggi ricevuti in Outlook durante un periodo in cui si è occupati. Tuttavia, Outlook non include una funzione integrata per gestire questa esigenza; fortunatamente, qui trovi un codice VBA pronto all’uso.
Risposta automatica quando si è occupati con un codice VBA
Risposta automatica quando si è occupati con un codice VBA
Di seguito è riportato un codice VBA che attiva la risposta automatica quando nel calendario di Outlook sono presenti alcuni appuntamenti; se invece il calendario è vuoto, la risposta automatica viene disattivata.
1. Premere Alt + F11 per aprire la finestra di Microsoft Visual Basic for Applications.
2. Fare doppio clic su ThisOutlookSession nel riquadro di Project1, quindi copiare e incollare il codice seguente nello script.
VBA: Risposta automatica quando si è occupati nel calendario
Public WithEvents xInboxItems As Outlook.Items
Private Sub Application_Startup()
Set xInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub xInboxItems_ItemAdd(ByVal Item As Object)
'UpdatebyExtendoffice20180418
Dim xMailItem As Outlook.MailItem
Dim xReplyMailItem As Outlook.MailItem
Dim xReplyHTMLBody As String
Dim xAppointments As Outlook.Items
Dim xFilter As String
Dim xRestrictAppointments As Outlook.Items
Dim xAppointment As Outlook.AppointmentItem
Dim xDateFormat As String
On Error Resume Next
If TypeOf Item Is MailItem Then
Set xMailItem = Item
Set xReplyMailItem = xMailItem.Reply
xReplyHTMLBody = xReplyMailItem.HTMLBody
Set xAppointments = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar).Items
xAppointments.Sort "[Start]"
xAppointments.IncludeRecurrences = True
xDateFormat = Format(Now, "ddddd h:nn AMPM")
xFilter = "[Start]<= '" & xDateFormat & "' AND [End]>= '" & xDateFormat & "'"
Set xRestrictAppointments = xAppointments.Restrict(xFilter)
If TypeName(xRestrictAppointments) = "Nothing" Then Exit Sub
For Each xAppointment In xRestrictAppointments
If xAppointment.BusyStatus = olBusy Or olOutOfOffice Then
xReplyMailItem.HTMLBody = "<HTML><BODY>I'm Sorry that I can't respond to you right now. I'll reply to you later.</HTML></BODY>" & _
xReplyHTMLBody
xReplyMailItem.Send
End If
Next
End If
End Sub3. Salvare questo codice e riavviare Outlook. D’ora in poi, ogni volta che si ricevono email durante l’intervallo di tempo dei propri appuntamenti, verrà inviata una risposta automatica.
Suggerimenti:
(1) Nel codice è possibile personalizzare il testo della risposta in base alle proprie esigenze nello script «Mi dispiace, ma al momento non posso risponderti. Ti risponderò più tardi.» & _
(2) Questa macro VBA può rispondere automaticamente alle ricevute nella Posta in arrivo del file dati predefinito.
Assistente email IA in Outlook: risposte più intelligenti, comunicazione più chiara (magia con un clic!)
Ottimizza le tue attività quotidiane in Outlook con l’Assistente email IA di Kutools per Outlook: uno strumento potente che impara dalle tue email precedenti per suggerirti risposte intelligenti e precise, ottimizzare il contenuto dei messaggi e aiutarti a scrivere e perfezionare le tue email in modo rapido e senza sforzo.
Questa funzionalità supporta:
- Risposte intelligenti: ottieni risposte generate dalle tue conversazioni precedenti—personalizzate, precise e pronte all’uso.
- Contenuto migliorato: affina automaticamente il testo delle tue email per renderlo più chiaro ed efficace.
- Composizione senza sforzo: inserisci solo alcune parole chiave e lascia che l’IA si occupi del resto, con più stili di scrittura.
- Estensioni intelligenti: amplia i tuoi pensieri con suggerimenti contestuali.
- Sintesi: ottieni subito una panoramica rapida e concisa delle email più lunghe.
- Portata globale: traduci le tue email in qualsiasi lingua con estrema facilità.
Questa funzionalità supporta:
- Risposte email intelligenti
- Contenuto ottimizzato
- Bozze basate su parole chiave
- Estensione intelligente del contenuto
- Sintesi delle email
- Traduzione multilingue
Non aspettare—scarica subito l’Assistente email IA e approfitta di!
Migliori strumenti per la produttività in Office
Scopri il nuovissimo Kutools per Outlook con 100+ funzionalità incredibili!Clicca per scaricare ora!
📧Automazione delle email: Risposta automatica (disponibile per POP e IMAP) / Invio email programmato / CC/BCC automatico in base a regole durante l’invio delle email / Inoltro automatico (regola avanzata) / Aggiunta automatica del saluto / Divisione automatica delle email con destinatari multipli in messaggi individuali...
📨Gestione delle email: Richiama Email / Blocca le email truffaldine in base all’oggetto e ad altri criteri / Elimina email duplicate / Ricerca avanzata / Organizza cartelle...
📁Allegati Pro: Salvataggio batch / Distacco batch / Compressione batch / Salvataggio automatico / Distacco automatico / Compressione automatica…
🌟Magia dell’interfaccia: 😊 Più emoji graziose e accattivanti / Ti avvisa all’arrivo di email importanti / Riduci a icona Outlook invece di chiuderlo...
👍Meraviglie con un clic: Rispondi a Tutti con Allegati / Email anti-phishing / 🕘 Mostra il fuso orario – Ora corrente del mittente...
👩🏼🤝👩🏻Contatti e calendario: Aggiungi contatti in blocco dalle email selezionate / Dividi un gruppo di contatti in gruppi individuali / Rimuovi i promemoria dei compleanni...
Usa Kutools nella tua lingua preferita: supporta inglese, spagnolo, tedesco, francese, cinese e oltre 40 altre lingue!
🚀 Download con un clic — Ottieni tutti i componenti aggiuntivi per Office
Fortemente consigliato: Kutools for Office (5-in-1)
Un clic per scaricare cinque programmi di installazionetutti insieme —Kutools per Excel, Outlook, Word, PowerPointe Office Tab Pro.Clicca per scaricare ora!
- ✅Comodità con un solo clic: scarica tutti e cinque i pacchetti di installazione in un’unica azione.
- 🚀Pronto per qualsiasi attività in Office: installa i componenti aggiuntivi che ti servono, esattamente quando ti servono.
- 🧰Inclusi: Kutools per Excel / Kutools per Outlook / Kutools per Word / Office Tab Pro / Kutools for PowerPoint