Как сохранить несколько выбранных писем как файлы MSG оптом в Outlook?
Сохранить письмо как файл 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, затем нажмите кнопку "ОК". См. скриншот:

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

Легко сохраняйте выбранные письма в разных форматах файлов в Outlook:
С помощью утилиты "Массовое сохранение" из "Kutools for Outlook" вы можете легко сохранять несколько выбранных писем как отдельные файлы в формате HTML, TXT, документ Word, CSV, а также PDF в Outlook, как показано на скриншоте ниже. Скачайте бесплатную версию Kutools for Outlook прямо сейчас!
Лучшие инструменты для повышения продуктивности в Office
Срочные новости: Kutools для Outlook запускает бесплатную версию!
Оцените совершенно новую бесплатную версию Kutools для Outlook с более чем70 потрясающими функциями — пользуйтесь ими НАВСЕГДА! Нажмите, чтобы скачать прямо сейчас!
📧 Автоматизация Email: Автоответчик (доступно для POP и IMAP) / Запланировать отправку писем / Авто Копия/Скрытая копия по правилу при отправке писем / Автоматическое перенаправление (Расширенное правило) / Автоматическое добавление приветствия / Автоматическое разделение писем с несколькими получателями на отдельные сообщения ...
📨 Управление Email: Отозвать письмо / Блокировать мошеннические письма по теме и другим параметрам / Удалить дубликаты писем / Расширенный Поиск / Организовать папки ...
📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...
🌟 Магия интерфейса: 😊Больше красивых и крутых Эмодзи / Напоминание о важных письмах / Сворачивайте Outlook вместо закрытия ...
👍 Мгновенные действия: Ответить всем с вложениями / Антифишинговые Email / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и Календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминание о дне рождения ...

