Comment enregistrer automatiquement les emails Outlook sur le disque dur ?
Pour une sauvegarde, des preuves de travail ou d'autres raisons, vous pourriez vouloir enregistrer les emails Outlook sur le disque dur. Il est facile d'enregistrer plusieurs emails manuellement en les faisant glisser d'Outlook vers le disque. Cependant, savez-vous comment enregistrer automatiquement chaque email entrant sur le disque ? Cet article présentera une macro VBA pour gérer cela dans Outlook.
Enregistrement automatique des emails Outlook sur le disque dur
Enregistrement automatique des emails Outlook sur le disque dur
Cette méthode présente une macro VBA pour enregistrer automatiquement chaque email entrant dans Outlook sous forme de fichiers HTML individuels sur un disque spécifique. Veuillez procéder comme suit :
1. Appuyez sur les touches "Alt" + "F11" pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Développez Projet1, puis double-cliquez sur "ThisOutlookSession" pour l'ouvrir, et ensuite collez le code VBA ci-dessous dans la fenêtre ThisOutlookSession. Voir capture d'écran :
VBA : Enregistrement automatique des emails Outlook au format 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, puis redémarrez votre Microsoft Outlook.
Désormais, chaque email entrant sera enregistré sous forme de fichier HTML individuel dans le dossier “MyEmails”.
Remarques:
(1) Cette macro VBA créera un dossier nommé “MyEmails” sous le dossier Documents. Vous pouvez retrouver les emails enregistrés automatiquement à l'aide de ce chemin : C:\Users\votre_nom_utilisateur\Documents\MyEmails
(2) Cette macro VBA fonctionnera avec les emails reçus dans le dossier Boîte de réception du compte email par défaut.
Articles connexes
Comment exporter des emails en masse/sélectionnés vers un fichier Excel/Texte/PST dans Outlook ?
Meilleurs outils de productivité pour Office
Dernières nouvelles : Kutools pour Outlook lance une version gratuite !
Découvrez la toute nouvelle version GRATUITE de Kutools pour Outlook avec plus de70 fonctionnalités incroyables, à utiliser POUR TOUJOURS ! Cliquez pour télécharger maintenant !
📧 Automatisation des emails : Réponse automatique (Disponible pour POP et IMAP) / Programmation d'envoi d'emails / CC/BCC automatique par règle lors de l'envoi d'un email / Transfert automatique (Règle avancée) / Ajouter automatiquement une salutation / Diviser automatiquement les emails multi-destinataires en messages individuels...
📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujets et autres / Supprimer les emails en double / Recherche avancée / Organiser les dossiers...
📁 Pièces jointes Pro : Enregistrement par lot / Détachement par lot / Compression par lot / Enregistrement automatique / Détachement automatique / Compression automatique...
🌟 Magie de l'interface : 😊Plus d'emojis jolis et cool / Vous rappeler lorsque des emails importants arrivent / Réduire Outlook au lieu de fermer...
👍 Merveilles en un clic : Répondre à tous avec pièces jointes / Emails anti-phishing / 🕘Afficher le fuseau horaire de l'expéditeur...
👩🏼🤝👩🏻 Contacts & Calendrier : Ajouter des contacts par lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d'anniversaire...
