Come rispondere automaticamente con il messaggio email originale in Outlook?
Normalmente, quando creiamo una regola per rispondere automaticamente alle email fuori sede, il messaggio originale nel corpo non sarà incluso. Come potresti rispondere automaticamente alle email includendo il messaggio originale in Outlook? In questo articolo, parlerò di un codice VBA per aiutarti a completare questa operazione il più rapidamente possibile in Outlook.
Rispondi automaticamente alle email con il messaggio originale in Outlook utilizzando il codice VBA
Rispondi automaticamente alle email con il messaggio originale in Outlook utilizzando il codice VBA
La normale regola di Outlook non può aiutarti a gestire questo compito, ma, con il seguente codice VBA, puoi completarlo rapidamente e facilmente. Procedi come segue:
1. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.
2. Nella finestra di 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: Rispondi automaticamente alle email con il messaggio originale:
Public WithEvents xlItems As Outlook.Items
Private Sub Application_Startup()
Set xlItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub xlItems_ItemAdd(ByVal objItem As Object)
Dim xlReply As MailItem
Dim xStr As String
If objItem.Class <> olMail Then Exit Sub
Set xlReply = objItem.Reply
With xlReply
xStr = "<p>" & "Hi, Your email has been received. Thank you!" & "</p>"
.HTMLBody = xStr & .HTMLBody
.Send
End With
End Sub

3. Salva e chiudi quindi la finestra del codice, chiudi o riavvia Outlook per rendere effettivo il codice VBA. Ora, quando ricevi email, Outlook invierà una risposta automatica con il messaggio originale, come mostrato nello screenshot seguente:

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

