Перейти к основному содержанию

Как сохранить только определенное (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-дневную) пробную версию этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.


Статьи по теме:


Лучшие инструменты для офисной работы

Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook

???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP)  /  Расписание отправки писем  /  Автоматическое копирование/скрытая копия по правилам при отправке электронной почты  /  Автопересылка (расширенные правила)   /  Автоматическое добавление приветствия   /  Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...

📨 Управление электронной почтой: Легко вспоминать электронные письма  /  Блокировка мошеннических писем от субъектов и других лиц  /  Удалить повторяющиеся электронные письма  /  Поиск  /  Объединение папок ...

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

???? Магия интерфейса: 😊Больше красивых и крутых смайлов   /  Повысьте производительность Outlook с помощью представлений с вкладками  /  Свернуть Outlook вместо закрытия ...

???? Чудеса в один клик: Ответить всем с входящими вложениями  /   Антифишинговые письма  /  🕘Показать часовой пояс отправителя ...

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

Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations