Перейти к содержимому

Kutools для Office — один пакет. Пять инструментов. Выполняйте больше.

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

Author Siluvia Last modified

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

steps on saving only Specific (Excel) Attachment In Outlook using vba

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

steps on saving only Specific (Excel) Attachment In Outlook using vba

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

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

steps on saving only Specific (Excel) Attachment In Outlook using vba

Теперь будут сохранены только указанные вложения.


Легко сохраняйте только вложения определенного формата в Outlook с помощью удивительного инструмента

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

 👉 У Kutools for Outlook теперь есть бесплатная версия, в которой 70+ функций доступны бесплатно на всю жизнь. Скачать бесплатную версию сейчас.

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

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

steps on saving only Specific (Excel) Attachment In Outlook using kutools for outlook

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

3.1) В разделе «Сохранить вложения в эту папку» нажмите steps on saving only Specific (Excel) Attachment In Outlook using kutools for outlook кнопку, чтобы выбрать папку для сохранения вложений;
3.2) Нажмите кнопку «Дополнительные параметры», чтобы развернуть диалоговое окно;
3.3) В разделе «Условия фильтрации» установите флажок «Тип вложения», затем введите расширение файла вложений, которые вы хотите сохранить, в текстовое поле.
Примечание: Для нескольких расширений файлов их необходимо разделить точками с запятой.
3.4) Нажмите кнопку «ОК». Смотрите скриншот:
steps on saving only Specific (Excel) Attachment In Outlook using kutools for outlook

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

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

steps on saving only Specific (Excel) Attachment In Outlook using kutools for outlook

Теперь сохранены только вложения определенного формата.


Связанные статьи:


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

Срочные новости: бесплатная версия Kutools для Outlook уже доступна!

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

🤖 Kutools AI : Использует передовые технологии искусственного интеллекта для легкой работы с Email — включая Ответ, Резюме, Оптимизацию, Расширение, Перевод и Составление писем.

📧 Автоматизация Email: Автоответчик (Доступно для POP и IMAP) / Запланировать отправку писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (Расширенное правило) / Автоматически добавить приветствие / Авторазделение Email с несколькими получателями на отдельные письма ...

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

📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...

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

👍 Удобные функции одним кликом: Ответить всем с вложениями / Антифишинговая Email / 🕘Показать часовой пояс отправителя ...

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

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

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

kutools for outlook features1 kutools for outlook features2

🚀 Скачайте все дополнения 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