Как да запазите само конкретен (Excel) прикачен файл в Outlook?

Автор: Силувия Последна промяна: 2022-06-17

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 Scripting Runtime поле и щракнете върху OK бутон.

4. Натисни F5 ключ за изпълнение на кода. В изскочилото Преглед за папка диалогов прозорец, изберете една папка, за да запазите прикачените файлове.

5. И след това щракнете OK, в следното Kutools за Outlook диалогов прозорец, въведете файловото разширение на прикачения файл, който ще запишете, в текстовото поле и щракнете OK.

Забележка: За няколко файлови разширения трябва да ги разделите със запетаи.

След това се запазват само посочените прикачени файлове.

Лесно запазвайте само прикачени файлове в определен файлов формат в Outlook с невероятен инструмент

Ако не сте запознати с VBA, тук ви препоръчваме да използвате Запазване на всички прикачени файлове функция на Kutools за Outlook. С тази функция можете лесно да запазвате само прикачени файлове в конкретен файлов формат в Outlook.

1. Изберете имейлите, от които искате да запазите само прикачени файлове в определен файлов формат.

2. кликване Kutools > Инструменти за прикачване > Запазване на всички.

3. В Запазване на настройките диалогов прозорец, трябва да конфигурирате както следва.

3.1) В Запазете прикачени файлове в тази папка , кликнете върху

бутон за избор на папка за запис на прикачените файлове;

3.2) Щракнете върху Разширени опции бутон за разгъване на диалоговия прозорец;

3.3) В Условия за филтриране раздел, проверете Тип прикачен файл отметка, след което въведете файловото разширение на прикачените файлове, които ще запазите в текста.

Съвет: За няколко файлови разширения трябва да ги разделите с точка и запетая.

3.4) Щракнете върху OK бутон. Вижте екранна снимка:

4. Изскача диалогов прозорец, който ви напомня, ако искате да запазите прикачените файлове, щракнете OK да продължи.

5. След това се появява друг диалогов прозорец, за да ви каже колко прикачени файлове са запазени, щракнете върху OK бутон.

Сега се запазват само прикачените файлове в специфичен файлов формат.

Кликнете тук за да научите повече за тази функция.

Ако искате да имате безплатен пробен период (30 дни) на тази помощна програма, моля, щракнете, за да го изтеглитеи след това преминете към прилагане на операцията съгласно горните стъпки.