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

Author Kelly Last modified 2025-08-26

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

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

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

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

1. Нажмите клавиши "Alt" + "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” в папке Документы. Вы можете найти автоматически сохраненные письма по этому пути к папке: C:\Users\your_user_name\Documents\MyEmails
(2) Этот VBA будет работать с письмами, полученными в папке Входящие основной учетной записи электронной почты.