Този метод ще въведе VBA за автоматично запазване на всеки входящ имейл в Outlook като отделен HTML файл на конкретния диск. Моля, направете следното:

1, Натиснете Друг + F11 клавиши, за да отворите прозореца на Microsoft Visual Basic за приложения.

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“ под папката „Документи“. Можете да намерите автоматично запазените имейли с този път на папката: C:\Users\вашето_потребителско_име\Documents\MyEmails
(2) Този VBA ще работи с имейли, получени в папката "Входящи" на имейл акаунта по подразбиране.

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