Comment enregistrer automatiquement les e-mails Outlook sur votre disque dur ?

Pour sauvegarder vos données, conserver des preuves professionnelles ou répondre à d’autres besoins, vous souhaitez peut-être enregistrer vos e-mails Outlook directement sur votre disque dur. Il est simple d’enregistrer manuellement quelques messages en les faisant glisser depuis Outlook vers votre disque. Mais savez-vous comment enregistrer automatiquement chaque e-mail entrant sur votre disque ? Cet article vous présente une macro VBA pour automatiser cette tâche dans Outlook.

Enregistrer automatiquement les e-mails Outlook sur le disque dur

---

Enregistrer automatiquement les e-mails Outlook sur le disque dur

Cette méthode utilise une macro VBA pour enregistrer automatiquement chaque e-mail entrant dans Outlook sous forme de fichiers HTML individuels à un emplacement spécifique sur votre disque. Voici la marche à suivre :

1. Appuyez sur les touches « Alt » + « F11 » pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Développez Projet1, double-cliquez sur « ThisOutlookSession » pour l’ouvrir, puis collez le code VBA ci-dessous dans la fenêtre ThisOutlookSession. Voir la capture d’écran :

VBA : Enregistrer automatiquement les e-mails Outlook sous forme de fichiers Fichier HTML sur le disque

Private WithEvents InboxItems As Outlook.Items
Sub Application_Startup()
 Dim xNameSpace As Outlook.NameSpace
 Set xNameSpace = Outlook.Application.Session
 Set InboxItems = xNameSpace.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub InboxItems_ItemAdd(ByVal objItem As Object)
 Dim FSO
 Dim xMailItem As Outlook.MailItem
 Dim xFilePath As String
 Dim xRegEx
 Dim xFileName As String
 On Error Resume Next
 xFilePath = CreateObject("WScript.Shell").SpecialFolders(16)
 xFilePath = xFilePath & "\MyEmails"
 Set FSO = CreateObject("Scripting.FileSystemObject")
 If FSO.FolderExists(xFilePath) = False Then
 FSO.CreateFolder (xFilePath)
 End If
 Set xRegEx = CreateObject("vbscript.regexp")
 xRegEx.Global = True
 xRegEx.IgnoreCase = False
 xRegEx.Pattern = "\||\/|\|""|:|\*|\\|\?"
 If objItem.Class = olMail Then
 Set xMailItem = objItem
 xFileName = xRegEx.Replace(xMailItem.Subject, "")
 xMailItem.SaveAs xFilePath & "\" & xFileName & ".html", olHTML
 End If
 Exit Sub
End Sub

3. Enregistrez le code VBA et redémarrez Microsoft Outlook.

Désormais, chaque e-mail reçu sera automatiquement enregistré sous forme de fichier HTML individuel dans le dossier « MyEmails ».

Remarques :
(1) Cette macro VBA crée un dossier nommé « MyEmails » dans le dossier Documents. Vous pouvez retrouver les e-mails enregistrés automatiquement à cet emplacement. Chemin du fichier : C:\Users\votre_nom_utilisateur\Documents\MyEmails
(2) Cette macro VBA fonctionne avec les e-mails reçus situés dans le dossier Boîte de réception du compte par défaut.

---

Articles associés

Comment exporter plusieurs e-mails ou uniquement ceux que vous avez sélectionnés vers un fichier Excel, texte ou PST dans Outlook ?