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».

Notes:
(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.

Comment exporter des e-mails en vrac / sélectionnés vers un fichier Excel / Texte / PST dans Outlook?