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

Author: Siluvia Last Modified: 2025-08-07

Сохранить письмо как файл MSG в Outlook довольно просто. Но как сохранить несколько выбранных писем как отдельные файлы MSG оптом? В этой статье мы покажем вам метод, который поможет это сделать.

Сохранение нескольких выбранных писем как файлов MSG с помощью кода VBA

Сохранение нескольких выбранных писем как файлов MSG с помощью кода VBA

Следующий код VBA поможет вам сохранить несколько выбранных писем как отдельные файлы MSG оптом в Outlook. Пожалуйста, следуйте инструкциям ниже.

1. Выберите письма, которые вы хотите сохранить как файлы MSG. Затем одновременно нажмите клавиши "Alt" + "F11", чтобы открыть окно Microsoft Visual Basic для приложений.

2. В окне Microsoft Visual Basic для приложений нажмите "Вставить" > "Модуль", затем скопируйте приведенный ниже код VBA в окно Модуля.

Код VBA: Сохранение нескольких выбранных писем как отдельных файлов MSG в Outlook

Public Sub SaveMessageAsMsg()
'Update by Extendoffice 2018/3/5
Dim xMail As Outlook.MailItem
Dim xObjItem As Object
Dim xPath As String
Dim xDtDate As Date
Dim xName, xFileName As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xFileName = xFolderItem.Path & "\"
Else
    xFileName = ""
    Exit Sub
End If
For Each xObjItem In Outlook.ActiveExplorer.Selection
    If xObjItem.Class = olMail Then
        Set xMail = xObjItem
        xName = xMail.Subject
        xDtDate = xMail.ReceivedTime
        xName = Format(xDtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
          vbUseSystem) & Format(xDtDate, "-hhnnss", _
          vbUseSystemDayOfWeek, vbUseSystem) & "-" & xName & ".msg"
        xPath = xFileName + xName
        xMail.SaveAs xPath, olMSG
    End If
Next
End Sub

3. Нажмите клавишу "F5", чтобы запустить код.

4. В диалоговом окне "Обзор папок" укажите папку для сохранения файлов MSG, затем нажмите кнопку "ОК". См. скриншот:

the screenshot of step 1 about saving selected emails as msg files using vba in outlook

Теперь все выбранные письма сохранены как отдельные файлы MSG, как показано на скриншоте ниже.

the screenshot of step 2 about saving selected emails as msg files using vba in outlook

С помощью утилиты "Массовое сохранение" из "Kutools for Outlook" вы можете легко сохранять несколько выбранных писем как отдельные файлы в формате HTML, TXT, документ Word, CSV, а также PDF в Outlook, как показано на скриншоте ниже. Скачайте бесплатную версию Kutools for Outlook прямо сейчас!

ad about saving emails as multiple file formats in outlook with kutools for outlook