Цей метод запровадить VBA для автоматичного збереження кожного вхідного повідомлення електронної пошти в Outlook як окремого файлу HTML на певний диск. Будь ласка, виконайте наступне:

1. Прес інший + F11 клавіші, щоб відкрити вікно Microsoft Visual Basic for Applications.

2. Розгорніть Project1 і двічі клацніть ThisOutlookSession щоб відкрити його, а потім вставте нижче коду VBA у вікно ThisOutlookSession. Дивіться знімок екрана:

VBA: Автоматично зберігати електронні листи Outlook як файли HTML на диску

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. Збережіть код VBA та перезапустіть Microsoft Outlook.

Відтепер кожен вхідний електронний лист буде зберігатися як окремий HTML-файл у папці “MyEmails”.

примітки:
(1) Цей VBA створить папку з назвою “MyEmails” у папці Documents. Ви можете дізнатись про автоматично збережені електронні листи з таким шляхом до папки: C: \ Users \ your_user_name \ Documents \ MyEmails
(2) Цей VBA буде працювати з електронними листами, отриманими в папці Вхідні за замовчуванням.

Як експортувати масові / вибрані електронні листи до файлу Excel / Text / PST у програмі Outlook?