Această metodă va introduce un VBA pentru a salva automat fiecare e-mail primit în Outlook ca fișier HTML individual pe discul specific. Vă rugăm să faceți următoarele:

1. presa Alt + F11 tastele pentru a deschide fereastra Microsoft Visual Basic pentru aplicații.

2. Extindeți Project1 și faceți dublu clic Această sesiune Outlook pentru a-l deschide și apoi lipiți mai jos codul VBA în fereastra ThisOutlookSession. Vedeți captura de ecran:

VBA: Salvați automat e-mailurile Outlook ca fișiere HTML pe disc

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. Salvați codul VBA și reporniți Microsoft Outlook.

De acum înainte, fiecare e-mail primit va fi salvat ca fișier HTML individual în folderul „MyEmails”.

notițe:
(1) Acest VBA va crea un folder numit „MyEmails” sub folderul Documents. Puteți afla e-mailurile salvate automat cu această cale a folderului: C: \ Users \ your_user_name \ Documents \ MyEmails
(2) Acest VBA va funcționa cu e-mailurile primite în folderul Inbox al contului de e-mail implicit.

Cum se exportă e-mailurile în bloc / selectate în fișierul Excel / Text / PST în Outlook?