Как сохранить в Outlook только определённое вложение (Excel)?

АвторSiluviaДата изменения2025-04-15

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» и нажмите «ОК».

шаги по сохранению только определённого (Excel) вложения в Outlook с использованием vba

4. Нажмите клавишу «F5», чтобы запустить код. В появившемся диалоговом окне «Обзор папок» укажите папку для сохранения вложений.

шаги по сохранению только определённого (Excel) вложения в Outlook с использованием vba

5. Затем нажмите «ОК». В следующем диалоговом окне «Kutools для Outlook» введите расширение файла вложения, который нужно сохранить, в текстовое поле и снова нажмите «ОК».

Примечание: несколько расширений файлов следует разделять запятыми.

шаги по сохранению только определённого (Excel) вложения в Outlook с использованием vba

После этого сохранятся только указанные вложения.

Простое сохранение только определённых вложений Тип файла в Outlook с помощью удобного инструмента

Если вы новичок в работе с VBA, рекомендуем воспользоваться функцией «Сохранить все вложения» из набора «Kutools для Outlook». С её помощью вы легко сможете сохранять только вложения определённого типа файла в Outlook.

👉 Работайте эффективнее в Outlook!Скачать Kutools для Outlook, чтобы повысить продуктивность с помощью 100+ функций, экономящих время, — бесплатно на 30 дней!

1. Выберите письма, из которых нужно сохранить только вложения указанного типа файла.

2. Нажмите «Kutools» > «Инструменты вложений» > «Сохранить все».

шаги по сохранению только определённого (Excel) вложения в Outlook с использованием kutools for outlook

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

3,1) В разделе «Сохранить вложения в эту папку» нажмите кнопку шаги по сохранению только определённого (Excel) вложения в Outlook с использованием kutools for outlook

, чтобы указать папку для сохранения вложений;

3,2) Нажмите кнопку «Дополнительные параметры», чтобы развернуть диалоговое окно;

3,3) В разделе «Условия фильтрации» установите флажок «Тип вложения», затем введите расширение файлов вложений, которые требуется сохранить, в текстовое поле.

Совет: для нескольких расширений файлов их необходимо разделять точкой с запятой.

3,4) Нажмите кнопку «ОК». См. снимок экрана:

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

5. Затем появится ещё одно диалоговое окно с информацией о количестве сохранённых вложений — нажмите «ОК».

Теперь сохраняются только вложения указанного типа файла.

См. также:

Лучшие инструменты для повышения продуктивности в Office

Оцените совершенно новый Kutools для Outlook с 100+ потрясающими функциями!Нажмите, чтобы скачать прямо сейчас!

🤖KUTOOLS AI:Использует передовые технологии ИИ для удобной работы с электронной почтой: ответы, составление резюме, оптимизация, расширение, перевод и создание писем.

📧Автоматизация работы с электронной почтой: Автоответ (доступен для POP и IMAP) / Планирование отправки писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (расширенное правило) / Автоматическое добавление приветствия / Автоматическое разделение писем с несколькими получателями на отдельные сообщения…

📨Управление электронной почтой: Отозвать письмо / Блокировка спама по теме и другим признакам / Удаление дубликатов писем / Расширенный поиск / Организация папок…

📁Продвинутая работа с вложениями: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие…

🌟Волшебство интерфейса: 😊Еще больше красивых и стильных эмодзи / Напоминание о важных входящих письмах / Сворачивание Outlook вместо закрытия…

👍Чудеса одним щелчком: Ответить всем с вложениями / Защита от фишинговых писем / 🕘Отображение часового пояса: текущее время отправителя…

👩🏼‍🤝‍👩🏻Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделение группы контактов на отдельные группы / Удаление напоминания о дне рождения…

Используйте Kutools на вашем любимом языке — поддержка английского, испанского, немецкого, французского, китайского и более чем 40 других языков!

Мгновенно получите доступ к Kutools для Outlook одним щелчком! Не теряйте время — скачайте прямо сейчас и повысьте свою эффективность!

Список функций Kutools для Outlook Скачать сейчас Перейти к покупке

🚀 Скачать одним щелчком — Получите все надстройки для Office

Настоятельно рекомендуется: Kutools for Office (5 в 1)

Скачайте одним щелчком пять установщиковсразу —Kutools для Excel, Outlook, Word, PowerPointи Office Tab Pro.Нажмите, чтобы скачать прямо сейчас!

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

О пакете ⬇ Скачать пакет 💳 Приобрести пакет