Як зберегти лише конкретні (Excel) вкладення в Outlook?

Outlook надає функцію «Зберегти всі вкладення», щоб допомогти вам одночасно зберігати всі вкладення в електронному листі до певної папки. Однак якщо ви хочете зберегти лише певні типи вкладень в одному або кількох електронних листах, наприклад, робочі книги Excel, документи Word тощо, як цього досягти? У цьому підручнику ми пропонуємо вам два способи вирішення цієї проблеми.

Зберігайте лише вкладені файли певного формату в Outlook за допомогою коду VBA
Легко зберігайте лише вкладені файли певного формату в Outlook за допомогою дивовижного інструменту

Зберігайте лише вкладені файли певного формату в Outlook за допомогою коду VBA

Наступний код VBA може допомогти зберегти лише вкладені файли певного формату в одному або кількох вибраних електронних листах до певної папки. Будь ласка, зробіть наступне.

1. Запустіть Outlook. У списку Пошта виберіть один або кілька листів, з яких потрібно зберегти лише вкладення у певному форматі файлу.

2 Натисніть кнопку інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікно. У вікні, що відкриється, натисніть Insert > Модулі, а потім скопіюйте код 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 для Outlook - приносить 100 розширених функцій для Outlook і значно полегшує роботу!

Авто CC / BCC за правилами при відправці електронної пошти; Автоматичне пересилання вперед Кілька електронних листів на замовлення; Автовідповідь без сервера обміну та більше автоматичних функцій ...
Попередження BCC - показати повідомлення при спробі відповісти всім якщо ваша поштова адреса є у списку BCC; Нагадати про відсутність вкладеньта інші функції нагадування ...
Відповісти (Усі) з усіма вкладеннями в поштовій розмові; Відповісти на багато електронних листів за секунди; Автоматично додавати привітання при відповіді; Додати дату в тему ...
Інструменти вкладення: Керування всіма вкладеннями у всіх листах, Автоматичне від'єднання, Стиснути все, Перейменувати все, Зберегти все ... Швидкий звіт, Підрахувати вибрані листи...
Потужні небажані електронні листи за звичаєм; Видаліть повторювані листи та контакти... Дозвольте вам робити розумніші, швидші та кращі в Outlook.