Как сохранить все вложения из нескольких писем в папку в Outlook?
С помощью встроенной функции «Сохранить все вложения» в Outlook легко сохранить все вложения из электронного письма. Однако, если вы хотите сохранить все вложения из нескольких писем одновременно, никакая прямая функция не может помочь. Вам необходимо многократно применять функцию «Сохранить все вложения» в каждом электронном письме, пока все вложения из этих писем не будут сохранены. На это уходит много времени. В этой статье мы познакомим вас с двумя методами массового сохранения всех вложений из нескольких писем в определенную папку в Outlook.
Сохраните все вложения из нескольких писем в папку с кодом VBA
Несколько щелчков мышью, чтобы сохранить все вложения из нескольких писем в папку с помощью удивительного инструмента
Сохраните все вложения из нескольких писем в папку с кодом VBA
В этом разделе демонстрируется код VBA в пошаговом руководстве, которое поможет вам быстро сохранить все вложения из нескольких электронных писем в определенную папку одновременно. Пожалуйста, сделайте следующее.
1. Во-первых, вам необходимо создать папку для сохранения вложений на вашем компьютере.
Попасть в Документы папку и создайте папку с именем «Вложения». Смотрите скриншот:
2. Выберите электронные письма, вложения которых вы сохраните, а затем нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
3. Нажмите Вставить > Модули для открытия Модули window, а затем скопируйте в окно один из следующих кодов VBA.
Код VBA 1: массовое сохранение вложений из нескольких писем (сохранение вложения с точно таким же именем напрямую)
Советы: Этот код сохранит вложения с точно такими же именами, добавив цифры 1, 2, 3 ... после имен файлов.
Dim GCount As Integer
Dim GFilepath As String
Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
VBA.MkDir xFolderPath
End If
GFilepath = ""
For Each xMailItem In xSelection
Set xAttachments = xMailItem.Attachments
xAttCount = xAttachments.Count
xSaveFiles = ""
If xAttCount > 0 Then
For i = xAttCount To 1 Step -1
GCount = 0
xFilePath = xFolderPath & xAttachments.Item(i).FileName
GFilepath = xFilePath
xFilePath = FileRename(xFilePath)
If IsEmbeddedAttachment(xAttachments.Item(i)) = False Then
xAttachments.Item(i).SaveAsFile xFilePath
If xMailItem.BodyFormat <> olFormatHTML Then
xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
Else
xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
End If
End If
Next i
End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub
Function FileRename(FilePath As String) As String
Dim xPath As String
Dim xFso As FileSystemObject
On Error Resume Next
Set xFso = CreateObject("Scripting.FileSystemObject")
xPath = FilePath
FileRename = xPath
If xFso.FileExists(xPath) Then
GCount = GCount + 1
xPath = xFso.GetParentFolderName(GFilepath) & "\" & xFso.GetBaseName(GFilepath) & " " & GCount & "." + xFso.GetExtensionName(GFilepath)
FileRename = FileRename(xPath)
End If
xFso = Nothing
End Function
Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
xHtml = xItem.HTMLBody
xID = "cid:" & xCid
If InStr(xHtml, xID) > 0 Then
IsEmbeddedAttachment = True
End If
End If
End Function
Код VBA 2: массовое сохранение вложений из нескольких писем (проверка дубликатов)
Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
Dim xYesNo As Integer
Dim xFlag As Boolean
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
VBA.MkDir xFolderPath
End If
For Each xMailItem In xSelection
Set xAttachments = xMailItem.Attachments
xAttCount = xAttachments.Count
xSaveFiles = ""
If xAttCount > 0 Then
For i = xAttCount To 1 Step -1
xFilePath = xFolderPath & xAttachments.Item(i).FileName
xFlag = True
If VBA.Dir(xFilePath, 16) <> Empty Then
xYesNo = MsgBox("The file is exists, do you want to replace it", vbYesNo + vbInformation, "Kutools for Outlook")
If xYesNo = vbNo Then xFlag = False
End If
If xFlag = True Then
xAttachments.Item(i).SaveAsFile xFilePath
If xMailItem.BodyFormat <> olFormatHTML Then
xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
Else
xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
End If
End If
Next i
End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub
Заметки:
5. нажмите F5 ключ для запуска кода.
Затем все вложения в выбранных электронных письмах сохраняются в папку, созданную на шаге 1.
Ноты: Там может быть Microsoft Перспективы всплывающее окно подсказки, пожалуйста, нажмите Разрешить кнопку, чтобы продолжить.
Сохраняйте все вложения из нескольких писем в папку с помощью замечательного инструмента
Если вы новичок в VBA, здесь настоятельно рекомендуется Сохранить все вложения полезности Kutools для Outook для вас. С помощью этой утилиты вы можете быстро сохранить все вложения из нескольких писем сразу несколькими щелчками мыши только в Outlook.
Перед применением функции, пожалуйста, сначала загрузите и установите Kutools for Outlook.
1. Выберите электронные письма, содержащие вложения, которые вы хотите сохранить.
Советы: Вы можете выбрать несколько несмежных писем, удерживая Ctrl нажмите клавишу и выберите их по очереди;
Или выберите несколько соседних писем, удерживая Shift и выберите первое и последнее письмо.
2. Нажмите Кутулс >Инструменты для вложения > Сохраните все. Смотрите скриншот:
3. в Сохранить настройки диалога, нажмите кнопку, чтобы выбрать папку для сохранения вложений, а затем нажмите кнопку OK .
3. Нажмите OK дважды в следующем всплывающем диалоговом окне. Затем все вложения в выбранных электронных письмах сразу сохраняются в указанной папке.
Ноты:
- 1. Если вы хотите сохранять вложения в разных папках на основе электронных писем, проверьте Создайте подпапки в следующем стиле поле и выберите стиль папки в раскрывающемся списке.
- 2. Помимо сохранения всех вложений, вы можете сохранять вложения по определенным условиям. Например, вы хотите сохранить только прикрепленные файлы pdf, имя которых содержит слово «Счет-фактура», нажмите Дополнительные параметры кнопку, чтобы развернуть условия, а затем настройте, как показано на скриншоте ниже.
- 3. Если вы хотите автоматически сохранять вложения при получении электронной почты, Автосохранение вложений функция может помочь.
- 4. Чтобы отсоединить вложения непосредственно от выбранных писем, Отключить все вложения особенность Kutools for Outlook может оказать вам услугу.
Если вы хотите получить бесплатную (60-дневную) пробную версию этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.
Статьи по теме
Вставить вложения в текст сообщения электронной почты в Outlook
Обычно вложения отображаются в поле «Прикреплено» в электронном письме. В этом руководстве представлены методы, которые помогут вам легко вставлять вложения в тело письма в Outlook.
Автоматически загружать / сохранять вложения из Outlook в определенную папку
Вообще говоря, вы можете сохранить все вложения одного электронного письма, щелкнув «Вложения»> «Сохранить все вложения в Outlook». Но если вам нужно сохранить все вложения из всех полученных писем и получающих писем, какой идеал? В этой статье будут представлены два решения для автоматической загрузки вложений из Outlook в определенную папку.
Распечатать все вложения в одном / нескольких письмах в Outlook
Как вы знаете, он будет печатать только содержимое электронной почты, такое как заголовок, тело, когда вы нажимаете Файл> Печать в Microsoft Outlook, но не печатает вложения. Здесь мы покажем вам, как легко распечатать все вложения в выбранном электронном письме в Microsoft Outlook.
Искать слова во вложении (содержимом) в Outlook
Когда мы вводим ключевое слово в поле мгновенного поиска в Outlook, оно будет искать ключевое слово в темах, телах, вложениях писем и т. Д. Но теперь мне просто нужно искать ключевое слово в содержимом вложений только в Outlook, есть идея? В этой статье приведены подробные инструкции по простому поиску слов в содержимом вложений в Outlook.
Сохранять вложения при ответе в Outlook
Когда мы пересылаем сообщение электронной почты в Microsoft Outlook, исходные вложения в этом сообщении электронной почты остаются в перенаправленном сообщении. Однако, когда мы отвечаем на сообщение электронной почты, исходные вложения не будут прикреплены к новому ответному сообщению. Здесь мы собираемся познакомить вас с парочкой приемов сохранения исходных вложений при ответе в Microsoft Outlook.
Лучшие инструменты для офисной работы
Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook
🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...
???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP) / Расписание отправки писем / Автоматическое копирование/скрытая копия по правилам при отправке электронной почты / Автопересылка (расширенные правила) / Автоматическое добавление приветствия / Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...
📨 Управление электронной почтой: Легко вспоминать электронные письма / Блокировка мошеннических писем от субъектов и других лиц / Удалить повторяющиеся электронные письма / Поиск / Объединение папок ...
📁 Вложения Pro: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Авто отсоединение / Автоматическое сжатие ...
???? Магия интерфейса: 😊Больше красивых и крутых смайлов / Повысьте производительность Outlook с помощью представлений с вкладками / Свернуть Outlook вместо закрытия ...
???? Чудеса в один клик: Ответить всем с входящими вложениями / Антифишинговые письма / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминания о днях рождения ...
Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.