Как сохранить несколько выбранных писем в виде файлов MSG в Outlook?
В Outlook легко сохранить электронное письмо как файл MSG. Как вы можете сохранить несколько выбранных писем как отдельные файлы MSG в Outlook? Эта статья покажет вам способ ее достижения.
Сохранение нескольких выбранных писем в виде файлов 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, как показано ниже. Скачайте и попробуйте прямо сейчас! (60-дневный бесплатный пробный период)
Лучшие инструменты для офисной работы
Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook
🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...
???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP) / Расписание отправки писем / Автоматическое копирование/скрытая копия по правилам при отправке электронной почты / Автопересылка (расширенные правила) / Автоматическое добавление приветствия / Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...
📨 Управление электронной почтой: Легко вспоминать электронные письма / Блокировка мошеннических писем от субъектов и других лиц / Удалить повторяющиеся электронные письма / Поиск / Объединение папок ...
📁 Вложения Pro: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Авто отсоединение / Автоматическое сжатие ...
???? Магия интерфейса: 😊Больше красивых и крутых смайлов / Повысьте производительность Outlook с помощью представлений с вкладками / Свернуть Outlook вместо закрытия ...
???? Чудеса в один клик: Ответить всем с входящими вложениями / Антифишинговые письма / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминания о днях рождения ...
Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.