Comment configurer une réponse automatique incluant le message e-mail d’origine dans Outlook ?

Généralement, lorsqu’on crée une règle pour répondre automatiquement aux e-mails « Absent du bureau », le message d’origine n’est pas inclus dans la réponse. Comment configurer une réponse automatique dans Outlook tout en y intégrant le message original ? Dans cet article, je vous présente un code VBA qui vous permettra d’accomplir cette tâche aussi rapidement que possible.

Réponse automatique Répondre aux e-mails avec le message d’origine dans Outlook à l’aide d’un code VBA

---

Réponse automatique Répondre aux e-mails avec le message d’origine dans Outlook à l’aide d’un code VBA

La règle standard d’Outlook ne permet pas d’accomplir cette tâche, mais avec le code VBA suivant, vous y parviendrez rapidement et facilement. Procédez comme suit :

1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Dans la fenêtre Microsoft Visual Basic pour Applications, double-cliquez sur ThisOutlookSession dans le volet Projet1 (VbaProject.OTM) pour ouvrir le module, puis copiez-collez le code suivant dans ce module vierge.

Code VBA : Réponse automatique Répondre aux e-mails avec le message d’origine :

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. Ensuite, sauvegardez et fermez la fenêtre du code, puis fermez ou redémarrez Outlook pour que le code VBA prenne effet. Désormais, dès que vous recevrez des e-mails, Outlook enverra automatiquement une réponse automatique incluant le message d’origine, comme illustré dans la capture d’écran suivante :