Как автоматически сохранять электронные письма Outlook на жесткий диск / диск?
Для резервного копирования, рабочих доказательств или других целей вы можете сохранить электронные письма Outlook на жесткий диск. Можно легко сохранить несколько писем на диск, перетащив их вручную из Outlook на диск. Однако знаете ли вы, как автоматически сохранять каждое входящее письмо на диск? В этой статье будет представлен VBA для обработки этого в Outlook.
Автоматически сохранять электронные письма Outlook на жесткий диск / диск
Автоматически сохранять электронные письма Outlook на жесткий диск / диск
Этот метод представит VBA для автоматического сохранения каждого входящего сообщения электронной почты в Outlook в виде отдельного файла HTML на конкретный диск. Пожалуйста, сделайте следующее:
1, нажмите другой + F11 клавиши, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Разверните Project1 и дважды щелкните Эта сессия Outlook , чтобы открыть его, а затем вставьте ниже код 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-файла в папке «Мои электронные письма».
Заметки:
(1) Этот VBA создаст папку с именем «MyEmails» в папке «Документы». Вы можете найти автоматически сохраненные электронные письма по этому пути к папке: C: \ Users \ ваше_имя_пользователя \ Documents \ MyEmails
(2) Этот VBA будет работать с электронными письмами, полученными в папке «Входящие» учетной записи электронной почты по умолчанию.
Статьи по теме
Как экспортировать массовые / выбранные электронные письма в файл Excel / Text / PST в Outlook?
Лучшие инструменты для офисной работы
Последние новости: запуск Kutools для Outlook Бесплатная версия!
Испытайте совершенно новые Kutools для Outlook БЕСПЛАТНАЯ версия с более чем 70 потрясающими функциями, которыми вы можете пользоваться НАВСЕГДА! Нажмите, чтобы скачать сейчас!
???? Автоматизация электронной почты: Автоответ (доступно для POP и IMAP) / Расписание отправки писем / Автоматическое копирование/скрытая копия по правилам при отправке электронной почты / Автопересылка (расширенные правила) / Автоматическое добавление приветствия / Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...
📨 Управление электронной почтой: Отозвать электронные письма / Блокировка мошеннических писем от субъектов и других лиц / Удалить повторяющиеся электронные письма / Расширенный поиск / Объединение папок ...
📁 Вложения Pro: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Авто отсоединение / Автоматическое сжатие ...
???? Магия интерфейса: 😊Больше красивых и крутых смайлов / Напоминать, когда приходят важные письма / Свернуть Outlook вместо закрытия ...
???? Чудеса в один клик: Ответить всем с входящими вложениями / Антифишинговые письма / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминания о днях рождения ...
