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

Outlook предоставляет функцию «Сохранить все вложения», которая поможет вам одновременно сохранить все вложения в электронной почте в определенную папку. Однако, если вы хотите сохранить только определенные типы вложений в одном или нескольких электронных письмах, например, в книгах Excel, документах Word и т. д., как вы этого добьетесь? В этом уроке мы предлагаем вам два метода решения этой проблемы.

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

Сохраняйте вложения только определенных форматов файлов в Outlook с кодом VBA

Следующий код VBA может помочь сохранить только вложения файлов определенного формата в одном или нескольких выбранных электронных письмах в определенную папку. Пожалуйста, сделайте следующее.

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

2. нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно. В открывшемся окне нажмите Вставить > Модули, а затем скопируйте ниже код 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 и нажмите OK .

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

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

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

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

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

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

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

2. Нажмите Кутулс > Инструменты для вложения > Сохраните все.

3. в Сохранить настройки диалоговое окно необходимо настроить следующим образом.

3.1). Сохранить вложения в эту папку , нажмите

кнопка выбора папки для сохранения вложений;

3.2) Нажмите Дополнительные параметры кнопка для разворачивания диалогового окна;

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

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

3.4) Нажмите OK кнопка. Смотрите скриншот:

4. Появится диалоговое окно с напоминанием о том, хотите ли вы сохранить вложения, щелкните OK для продолжения.

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

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

Нажмите здесь чтобы узнать больше об этой функции.

Если вы хотите получить бесплатную (30-дневную) пробную версию этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.