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

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

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

---

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

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

1. Выделите письма, которые нужно сохранить в формате MSG, и одновременно нажмите клавиши «Alt» + «F11», чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications выберите «Insert» (Вставка) → «Module» (Модуль), затем скопируйте приведённый ниже код 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 и нажмите «OK». См. скриншот:

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

---