Note: The other languages of the website are Google-translated. Back to English

Как сохранить только определенное (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 для Outlook диалоговом окне введите расширение файла вложения, которое вы сохраните, в текстовое поле и нажмите OK.

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

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


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

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

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

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

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

3.1). Сохранить вложения в эту папку , нажмите кнопка выбора папки для сохранения вложений;
3.2) Нажмите Дополнительные параметры кнопка для разворачивания диалогового окна;
3.3). Условия фильтрации раздел, проверьте Тип вложения установите флажок, затем введите расширение файла вложения, которое вы сохраните в тексте.
Советы: Для нескольких расширений файлов вам необходимо разделить их точкой с запятой.
3.4) Нажмите OK кнопка. Смотрите скриншот:

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

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

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

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

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


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


Kutools for Outlook - добавляет в Outlook 100 расширенных функций и делает работу намного проще!

  • Авто CC / BCC по правилам при отправке электронной почты; Автопересылка Несколько писем по индивидуальному заказу; Автоответчик без сервера обмена и дополнительных автоматических функций ...
  • Предупреждение BCC - показать сообщение при попытке ответить всем если ваш почтовый адрес находится в списке BCC; Напоминать об отсутствии вложений, и многое другое напоминает функции ...
  • Ответить (всем) со всеми вложениями в почтовой беседе; Ответить на много писем в секундах; Автоматическое добавление приветствия при ответе; Добавить дату в тему ...
  • Инструменты для вложений: управление всеми вложениями во всех письмах, Авто отсоединение, Сжать все, Переименовать все, сохранить все ... Быстрый отчет, Подсчет выбранных писем...
  • Мощные нежелательные электронные письма по обычаю; Удаление повторяющихся писем и контактов... Позвольте вам делать в Outlook умнее, быстрее и лучше.
выстрел kutools outlook kutools tab 1180x121
выстрел kutools outlook kutools plus tab 1180x121
 
Сортировать комментарии по
Комментарии (0)
Оценок пока нет. Оцените первым!
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места