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ère nouvelle : Kutools pour Outlook lance une version gratuite !
Découvrez le tout nouveau Kutools pour Outlook avec plus de100 fonctionnalités incroyables ! Cliquez pour télécharger dès maintenant !
📧 Automatisation des emails : Réponse automatique (disponible pour POP et IMAP) / Programmation de l’envoi des emails / CC/BCC automatique selon des règles lors de l’envoi / Transfert automatique (Règle avancée) / Ajout automatique de la salutation / Fractionnement automatique des emails multi-destinataires en messages individuels...
📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujet et autres critères / Supprimer les emails en double / Recherche Avancée / Organiser les dossiers...
📁 Pièces jointes Pro:Enregistrer par lot / Détachement par lot / Compression par lot / Enregistrer automatiquement/ Détachement automatique/Compression automatique...
🌟 Magie de l’interface : 😊Davantage d’emojis beaux et sympas / Recevez une alerte en cas d’email important / Réduisez Outlook au lieu de le fermer...
👍 Fonctions en un clic : Répondre à tous avec pièces jointes / Anti-phishing emails / 🕘Afficher le fuseau horaire de l’expéditeur...
👩🏼🤝👩🏻 Contacts & Calendrier: Ajouter des contacts en lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire...
Utilisez Kutools dans la langue de votre choix– prend en charge l’anglais, l’espagnol, l’allemand, le français, le chinois, et plus de40 autres langues !
