Как автоматически сохранять письма Outlook на жёсткий диск?

Для резервного копирования, подтверждения выполненной работы или других целей может понадобиться сохранять письма Outlook на жёсткий диск. Несколько сообщений легко сохранить вручную — просто перетащите их из Outlook на нужный диск. Но знаете ли вы, как автоматически сохранять каждое входящее письмо на диск? В этой статье мы представим макрос VBA, который решит эту задачу в Outlook.

Автоматическое сохранение писем Outlook на жёсткий диск

---

Автоматическое сохранение писем Outlook на жёсткий диск

Этот метод позволяет с помощью макроса VBA автоматически сохранять каждое входящее письмо в Outlook как отдельный HTML-файл в указанную папку на диске. Выполните следующие действия:

1. Нажмите клавиши «Alt» + «F11», чтобы открыть окно Microsoft Visual Basic for Applications.

2. Разверните Project1, дважды щёлкните «ThisOutlookSession», чтобы открыть окно редактирования, и вставьте в него приведённый ниже код VBA. См. снимок экрана:

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\your_user_name\Documents\MyEmails.
(2) Этот макрос VBA работает с входящими сообщениями основной учётной записи электронной почты.

---

Связанные статьи

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