Этот метод представит VBA для автоматического сохранения каждого входящего сообщения электронной почты в Outlook в виде отдельного файла HTML на конкретный диск. Пожалуйста, сделайте следующее:

1, нажмите другой + F11 клавиши, чтобы открыть окно Microsoft Visual Basic для приложений.

2. Разверните Project1 и дважды щелкните Эта сессия Outlook , чтобы открыть его, а затем вставьте ниже код 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-файла в папке «Мои электронные письма».

Заметки:
(1) Этот VBA создаст папку с именем «MyEmails» в папке «Документы». Вы можете найти автоматически сохраненные электронные письма по этому пути к папке: C: \ Users \ ваше_имя_пользователя \ Documents \ MyEmails
(2) Этот VBA будет работать с электронными письмами, полученными в папке «Входящие» учетной записи электронной почты по умолчанию.

Как экспортировать массовые / выбранные электронные письма в файл Excel / Text / PST в Outlook?