Как сохранить только определенные вложения (Excel) в Outlook?
Outlook предоставляет функцию «Сохранить все вложения», которая помогает сохранить все вложения из письма в определенную папку за один раз. Однако, если вы хотите сохранить только определенные типы вложений из одного или нескольких писем, такие как книги Excel, документы Word и т.д., как это сделать? В этом руководстве мы предлагаем вам два метода для решения этой проблемы.
Сохранение только вложений определенного формата в Outlook с помощью кода VBA
Легко сохраняйте только вложения определенного формата в Outlook с помощью удивительного инструмента
Сохранение только вложений определенного формата в Outlook с помощью кода VBA
Следующий код VBA поможет сохранить только вложения определенного формата из одного или нескольких выбранных писем в указанную папку. Пожалуйста, выполните следующие действия.
1. Запустите ваш Outlook. В списке писем выберите одно или несколько писем, из которых вы хотите сохранить только вложения определенного формата.
2. Нажмите «Alt» + «F11», чтобы открыть окно «Microsoft Visual Basic for Applications». В открывшемся окне нажмите «Вставить» > «Модуль», затем скопируйте приведенный ниже код VBA в окно Модуля.
Код VBA: Сохранение только определенных вложений из одного или нескольких писем в папку
Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20210617
Dim xItem As Object, xFldObj As Object
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFilePath, xFilesSavePath As String
Dim xExtStr As String, xExt As String
Dim xExtArr() As String, xS As Variant
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").BrowseforFolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xExtStr = InputBox("Attachment Format:" + VBA.vbCrLf + "(Please separate multiple file extensions by comma.. Such as: .docx,.xlsx)", "Kutools for Outlook", xExtStr)
If Len(Trim(xExtStr)) = 0 Then Exit Sub
For Each xItem In xSelection
If xItem.Class = olMail Then
xFilesSavePath = ""
For Each xAttachment In xItem.Attachments
xFilePath = xSaveFolder & xAttachment.FileName
xExt = "." & xFSO.GetExtensionName(xFilePath)
xExtArr = VBA.Split(xExtStr, ",")
xS = VBA.Filter(xExtArr, xExt)
If UBound(xS) > -1 Then
xAttachment.SaveAsFile xFilePath
If xItem.BodyFormat <> olFormatHTML Then
xFilesSavePath = xFilesSavePath & vbCrLf & "<file://" & xFilePath & ">"
Else
xFilesSavePath = xFilesSavePath & "" & "" & xFilePath & ""
End If
End If
Next
xItem.Save
End If
Next
Set xFSO = Nothing
End Sub
3. Нажмите «Инструменты» > «Ссылки»; в диалоговом окне «Ссылки – Проект» установите флажок «Microsoft Scripting Runtime» и нажмите кнопку «ОК».
4. Нажмите клавишу «F5», чтобы запустить код. В появившемся диалоговом окне «Обзор папок» выберите папку для сохранения вложений.
5. Затем нажмите «ОК», в следующем диалоговом окне «Kutools для Outlook» введите расширение файла вложений, которые вы хотите сохранить, в текстовое поле и нажмите «ОК».
Примечание: Для нескольких расширений файлов их необходимо разделить запятыми.
Теперь будут сохранены только указанные вложения.
Легко сохраняйте только вложения определенного формата в Outlook с помощью удивительного инструмента
Если вы новичок в VBA, здесь мы рекомендуем вам использовать функцию «Сохранить все вложения» из «Kutools для Outlook». С помощью этой функции вы можете легко сохранять только вложения определенного формата в Outlook.
1. Выберите письма, из которых вы хотите сохранить только вложения определенного формата.
2. Нажмите «Kutools» > «Инструменты вложений» > «Сохранить все».

3. В диалоговом окне «Настройки сохранения» вам нужно настроить следующее.


4. Появится диалоговое окно с напоминанием о том, хотите ли вы сохранить вложения, нажмите «ОК», чтобы продолжить.
5. Затем появится еще одно диалоговое окно, которое сообщит вам, сколько вложений было сохранено, нажмите кнопку «ОК».

Теперь сохранены только вложения определенного формата.
Связанные статьи:
Лучшие инструменты для повышения продуктивности работы с Office
Срочные новости: бесплатная версия Kutools для Outlook уже доступна!
Оцените обновленный Kutools для Outlook с более чем100 невероятными функциями! Нажмите, чтобы скачать прямо сейчас!
📧 Автоматизация Email: Автоответчик (Доступно для POP и IMAP) / Запланировать отправку писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (Расширенное правило) / Автоматически добавить приветствие / Авторазделение Email с несколькими получателями на отдельные письма ...
📨 Управление Email: Отозвать письмо / Блокировать вредоносные письма по теме и другим критериям / Удалить дубликаты / Расширенный Поиск / Организовать папки ...
📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...
🌟 Волшебство интерфейса: 😊Больше красивых и стильных эмодзи / Напоминание при поступлении важных писем / Свернуть Outlook вместо закрытия ...
👍 Удобные функции одним кликом: Ответить всем с вложениями / Антифишинговая Email / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и Календарь: Пакетное добавление контактов из выбранных Email / Разделить группу контактов на отдельные / Удалить напоминание о дне рождения ...
Используйте Kutools на вашем языке – поддерживаются Английский, Испанский, Немецкий, Французский, Китайский и более40 других!


🚀 Скачайте все дополнения Office одним кликом
Рекомендуем: Kutools для Office (5-в-1)
Скачайте сразу пять установщиков одним кликом — Kutools для Excel, Outlook, Word, PowerPoint и Office Tab Pro. Нажмите, чтобы скачать прямо сейчас!
- ✅ Все просто: скачайте все пять установочных пакетов одним действием.
- 🚀 Готово для любой задачи Office: Установите нужные дополнения тогда, когда они вам понадобятся.
- 🧰 Включено: Kutools для Excel / Kutools для Outlook / Kutools для Word / Office Tab Pro / Kutools для PowerPoint