Comment enregistrer automatiquement les e-mails Outlook sur le disque dur / disque?
Pour la sauvegarde, les preuves de travail ou à d'autres fins, vous souhaiterez peut-être enregistrer les e-mails Outlook sur le disque dur. Il est facile d'enregistrer plusieurs e-mails sur le disque en les faisant glisser manuellement d'Outlook vers le disque. Cependant, savez-vous comment enregistrer automatiquement chaque e-mail entrant sur le disque? Cet article présentera un VBA pour le gérer dans Outlook.
Enregistrer automatiquement les e-mails Outlook sur le disque dur / disque
Enregistrer automatiquement les e-mails Outlook sur le disque dur / disque
Cette méthode introduira un VBA pour enregistrer automatiquement chaque e-mail entrant dans Outlook en tant que fichier HTML individuel sur le disque spécifique. Veuillez procéder comme suit:
1. presse autre + F11 touches pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Développez le projet1 et double-cliquez Cette session Outlook pour l'ouvrir, puis collez sous le code VBA dans la fenêtre ThisOutlookSession. Voir la capture d'écran:
VBA: enregistrez automatiquement les e-mails Outlook sous forme de fichiers 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 votre Microsoft Outlook.
À partir de maintenant, chaque e-mail entrant sera enregistré en tant que fichier HTML individuel dans le dossier «Mes e-mails».
Florales:
(1) Ce VBA créera un dossier nommé «MyEmails» sous le dossier Documents. Vous pouvez trouver les e-mails enregistrés automatiquement avec ce chemin de dossier: C: \ Users \ votre_nom_utilisateur \ Documents \ MyEmails
(2) Ce VBA fonctionnera avec les e-mails reçus dans le dossier Boîte de réception du compte de messagerie par défaut.
Articles Relatifs
Meilleurs outils de productivité bureautique
Dernières nouvelles : lancement de Kutools pour Outlook Version gratuite!
Découvrez le tout nouveau Kutools pour Outlook Version GRATUITE avec plus de 70 fonctionnalités incroyables, à utiliser POUR TOUJOURS! Cliquez pour télécharger maintenant!
📧 Email Automation: Réponse automatique (disponible pour POP et IMAP) / Programmer l'envoi d'e-mails / Auto CC/BCC par règles lors de l'envoi d'un e-mail / Transfert automatique (règles avancées) / Ajouter un message d'accueil automatique / Divisez automatiquement les e-mails multi-destinataires en messages individuels
(I.e. Email Management: Rappel des e-mails / Bloquer les e-mails frauduleux par sujets et autres / Supprimer les e-mails en double / Recherche Avancée / Consolider les dossiers
(I.e. Pièces jointes Pro: Sauvegarde par lots / Détachement par lots / Compression par lots / Enregistrement automatique / Détachement automatique / Compression automatique
???? Magie de l'interface: 😊Plus d'émojis jolis et cool / Vous rappeler lorsque des e-mails importants arrivent / Réduire Outlook au lieu de fermer
???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes / E-mails anti-hameçonnage / 🕘Afficher le fuseau horaire de l'expéditeur
👩🏼🤝👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer les rappels d'anniversaire
