Come impostare una risposta automatica con il messaggio e-mail originale in Outlook?

Di solito, quando si crea una regola per rispondere automaticamente alle e-mail con un messaggio “Fuori sede” in Outlook, il messaggio originale non viene incluso nel corpo della risposta. Come fare, allora, per inviare risposte automatiche che includano il messaggio originale? In questo articolo ti mostrerò un codice VBA per aiutarti a completare questa operazione nel modo più rapido possibile.

Risposta automatica e-mail con il messaggio originale in Outlook tramite codice VBA

---

Risposta automatica e-mail con il messaggio originale in Outlook tramite codice VBA

La normale regola di Outlook non è in grado di gestire questa operazione, ma con il seguente codice VBA puoi portarla a termine in modo rapido e semplice. Procedi come segue:

1. Tieni premuto il tasto 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 nel riquadro Project1 (VbaProject.OTM) per aprire il modulo, quindi copia e incolla il codice seguente nel modulo vuoto.

Codice VBA: Risposta automatica e-mail 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 la finestra del codice, quindi chiudi o riavvia Outlook per attivare il codice VBA. Da ora in poi, ogni volta che riceverai un’e-mail, Outlook invierà automaticamente una risposta automatica contenente il messaggio originale, come mostrato nello screenshot seguente: