Як зберегти вкладення, не відкриваючи електронну пошту в Outlook?

Можливо, вам часто доведеться зберігати вкладення з отриманих електронних листів на диски комп'ютера. Зберегти вкладення чи всі вкладення з електронного повідомлення легко, але як зберегти вкладення з кількох електронних листів одночасно? Зазвичай вам потрібно неодноразово відкривати електронні листи та зберігати вкладення. Чи є якісь хитрощі, щоб позбутися багаторазових операцій? Тут методи в цьому посібнику можуть вам допомогти.

Зберігайте вкладення з одного або декількох листів, не відкриваючи код VBA
Зберігайте вкладення з одного або декількох листів, не відкриваючи їх за допомогою чудового інструменту

Зберігайте вкладення з одного або декількох листів, не відкриваючи код VBA

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

1. Виберіть електронний лист або кілька електронних листів, в які ви будете зберігати вкладення, натисніть інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Розгорніть Об'єкти Microsoft Outlook , двічі клацніть на ThisOutlookSession відкрити код вікно, а потім скопіюйте в нього код VBA нижче.

Код VBA: Зберігайте вкладення, не відкриваючи електронних листів

Public Sub SaveAttachmentsWithoutOpening()
'Updated by Extendoffice 20191008
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim i As Long
Dim xCount As Long
Dim xFileName As String
Dim xSavePath As String
Dim xOriginalFiles As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xSavePath = xFolderItem.Path & "\"
Else
    xFileName = ""
    Exit Sub
End If
For Each xMailItem In Outlook.ActiveExplorer.Selection
    Set xAttachments = xMailItem.Attachments
    xCount = xAttachments.Count
    xOriginalFiles = ""
    If xCount > 0 Then
        For i = xCount To 1 Step -1
            Set xAttachment = xAttachments.Item(i)
            If IsEmbeddedAttachment(xAttachment) = False Then
                xFileName = xSavePath & xAttachment.FileName
                xAttachment.SaveAsFile xFileName
                xAttachment.Delete
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xOriginalFiles = xOriginalFiles & vbCrLf & "file://" & xFileName
                Else
                    xOriginalFiles = xOriginalFiles & "<br>" & "<a href='file://" & xFileName & "'>" & xFileName & "</a>"
                End If
            End If
        Next i
        If xMailItem.BodyFormat <> olFormatHTML Then
            xMailItem.Body = "The file(s) were saved to " & xOriginalFiles & vbCrLf & vbCrLf & xMailItem.Body
        Else
            xMailItem.HTMLBody = "<p>" & "The file(s) were saved to " & xOriginalFiles & "</p>" & xMailItem.HTMLBody
        End If
        xMailItem.Save
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function

4 Натисніть кнопку F5 клавіша для запуску коду. Тоді a BrowseForFolder спливає вікно, виберіть папку для збереження вкладень, а потім клацніть на OK кнопки.

Тоді всі вкладення у вибраних електронних листах негайно зберігаються у вибраній папці.

Примітка: Усі вкладення будуть від'єднані від електронних листів і збережуть відповідні посилання на шлях збереження в тілі електронної пошти.

Зберігайте вкладення з одного або декількох листів, не відкриваючи їх за допомогою чудового інструменту

Якщо ви новачок у VBA, метод у цьому розділі буде вашим хорошим вибором.

Тут рекомендуємо Зберегти всі вкладення комунальні послуги Kutools для Outlook для вас. Якщо ви просто хочете зберегти вкладення, не відриваючись від вибраних електронних листів, функція Зберегти всі вкладення допоможе вам легко це зробити. Будь ласка, виконайте наступне.
Перш ніж застосовувати Kutools для Outlook, будь ласка завантажте та встановіть його по-перше

1. Виберіть електронні листи, що містять вкладення, які ви збережете, натисніть Кутулс > Інструменти кріплення > Зберегти все.

2 В зберегти налаштування у діалоговому вікні потрібно:

2.1) У Збережіть вкладення в цій папці розділ, виберіть папку для збереження вкладень;
2.2) Збережіть вкладення у нижченаведеному стилі для створення вкладеної папки зі стилем сертифіката для збереження вкладень або перейменування збережених вкладень у стиль сертифіката необов’язково.
2.3) Клацніть OK щоб розпочати збереження всіх вкладень n із вибраних електронних листів.

Tips : З наведеними вище конфігураціями всі вкладення будуть збережені у зазначеній папці. Якщо ви хочете зберегти лише деякі сертифіковані вкладення, наприклад, зберегти лише файли PDF із сертифікованим словом "рахунок-фактура" в назві файлу, ви можете налаштувати умови фільтра наступним чином.

Натисніть Додаткові параметри кнопку, щоб розгорнути Стан фільтраs;
Вкажіть умови, виходячи з ваших потреб.
Порада: Тут я перевіряю Назва вкладення містить поле, а потім введіть "рахунок" у текстове поле, а потім поставте прапорець біля Тип вкладення введіть ".pdf" у текстове поле.

3. У наступному діалоговому вікні, що з’явиться, натисніть Так продовжувати.

Потім вкладення у вибраних електронних листах одночасно зберігаються у зазначеній папці.

Tips : Для від'єднання вкладень від вибраних електронних листів та залишення лише гіперпосилань на вкладення в тілі електронної пошти, Від'єднайте всі вкладення ця функція може допомогти.

Якщо ви хочете отримати безкоштовну пробну версію (60 днів) цієї програми, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.

Статті по темі

Автоматично завантажувати / зберігати вкладення з Outlook у певну папку
Взагалі кажучи, ви можете зберегти всі вкладення одного електронного листа, натиснувши вкладення> Зберегти всі вкладення в Outlook. Але, якщо вам потрібно зберегти всі вкладення з усіх отриманих електронних листів та отримання електронних листів, будь-який ідеал? У цій статті представлено два рішення для автоматичного завантаження вкладень із Outlook у певну папку.

Зберігайте вкладення, відповідаючи в Outlook
Коли ми пересилаємо повідомлення електронної пошти в Microsoft Outlook, оригінальні вкладення в цьому повідомленні електронної пошти залишаються в переадресованому повідомленні. Однак, коли ми відповідаємо на повідомлення електронної пошти, оригінальні вкладення не додаватимуться до нового відповіді. Тут ми збираємось представити кілька прийомів щодо збереження оригінальних вкладень під час відповіді у Microsoft Outlook.

Шукати слова у вкладеному файлі (вмісті) у програмі Outlook
Коли ми вводимо ключове слово у поле миттєвого пошуку в Outlook, воно буде шукати ключове слово в темах електронної пошти, вмісті, вкладеннях тощо. Але тепер мені просто потрібно шукати ключове слово у вмісті вкладень лише в Outlook, будь-яка ідея? Ця стаття показує докладні кроки для легкого пошуку слів у вмісті вкладень у програмі Outlook.