Как сохранить только определенные вложения (Excel) в Outlook?
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 Sub3. Нажмите «Инструменты» > «Ссылки»; в диалоговом окне «Ссылки – Проект» установите флажок «Microsoft Scripting Runtime» и нажмите кнопку «ОК».
4. Нажмите клавишу «F5», чтобы запустить код. В появившемся диалоговом окне «Обзор папок» выберите папку для сохранения вложений.
5. Затем нажмите «ОК», в следующем диалоговом окне «Kutools для Outlook» введите расширение файла вложений, которые вы хотите сохранить, в текстовое поле и нажмите «ОК».
Примечание: Для нескольких расширений файлов их необходимо разделить запятыми.
Теперь будут сохранены только указанные вложения.
Легко сохраняйте только вложения определенного формата в Outlook с помощью удивительного инструмента
Если вы новичок в VBA, здесь мы рекомендуем вам использовать функцию «Сохранить все вложения» из «Kutools для Outlook». С помощью этой функции вы можете легко сохранять только вложения определенного формата в Outlook.
1. Выберите письма, из которых вы хотите сохранить только вложения определенного формата.
2. Нажмите «Kutools» > «Инструменты вложений» > «Сохранить все».
3. В диалоговом окне «Настройки сохранения» вам нужно настроить следующее.
кнопку, чтобы выбрать папку для сохранения вложений;
4. Появится диалоговое окно с напоминанием о том, хотите ли вы сохранить вложения, нажмите «ОК», чтобы продолжить.
5. Затем появится еще одно диалоговое окно, которое сообщит вам, сколько вложений было сохранено, нажмите кнопку «ОК».
Теперь сохранены только вложения определенного формата.
Связанные статьи:
Лучшие инструменты для повышения продуктивности в Office
Срочные новости: Выпущена бесплатная версия Kutools для Outlook!
Оцените совершенно новый Kutools для Outlook с более чем100 потрясающими функциями! Нажмите, чтобы скачать сейчас!
📧 Автоматизация Email: Автоответчик (доступно для POP и IMAP) / Запланировать отправку Email / Авто Копия/Скрытая копия по правилу при отправке письма / Автоматическое перенаправление (Расширенное правило) / Автоматически добавить приветствие / Автоматическое разделение Email с несколькими получателями на отдельные сообщения ...
📨 Управление Email: Отозвать письмо / Блокировать мошеннические Email по теме и другим признакам / Удалить дубликаты писем / Расширенный Поиск / Организовать папки ...
📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...
🌟 Магия интерфейса: 😊Больше красивых и современных Эмодзи / Напоминания о важных письмах / Сворачивание Outlook вместо закрытия ...
👍 Мгновенные действия в один клик: Ответить всем с вложениями / Антифишинг Email / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и Календарь: Пакетное добавление контактов из выбранных Email / Разделить группу контактов на отдельные группы / Удалить напоминание о дне рождения ...
Используйте Kutools на вашем любимом языке – поддерживается английский, испанский, немецкий, французский, китайский и более40 других языков!
