Как сохранить вложения, не открывая электронную почту в Outlook?

Вам может часто понадобиться сохранять вложения из полученных писем на диски вашего компьютера. Сохранить вложение или все вложения из сообщения электронной почты легко, но как сохранить вложения сразу из нескольких писем? Обычно вам нужно несколько раз открывать электронные письма и сохранять вложения. Есть ли уловки, чтобы избавиться от многократных операций? Здесь вам могут помочь методы, описанные в этом руководстве.

Сохраняйте вложения из одного или нескольких писем, не открывая их с помощью кода VBA
Сохраняйте вложения из одного или нескольких писем, не открывая их, с помощью замечательного инструмента

Сохраняйте вложения из одного или нескольких писем, не открывая их с помощью кода VBA

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

1. Выберите письмо или несколько писем, в которые вы будете сохранять вложения, нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Разверните Объекты Microsoft Outlook папку, дважды щелкните Эта сессия Outlook для открытия Code окно, а затем скопируйте приведенный ниже код 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 ключ для запуска кода. Потом Браузфорфолдер появится всплывающее окно, выберите папку для сохранения вложений и нажмите кнопку OK .

Затем все вложения в выбранных электронных письмах немедленно сохраняются в выбранной папке.

Примечание: Все вложения будут отсоединены от писем, а соответствующие ссылки на путь сохранения сохранятся в теле письма.

Сохраняйте вложения из одного или нескольких писем, не открывая их, с помощью замечательного инструмента

Если вы новичок в VBA, метод из этого раздела будет вашим хорошим выбором.

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

1. Выберите электронные письма, содержащие вложения, которые вы сохраните, нажмите Кутулс > Инструменты для вложения > Сохраните все.

2. в Сохранить настройки диалоговое окно, вам необходимо:

2.1). Сохранить вложения в эту папку раздел выберите папку для сохранения вложений;
2.2) Сохраните вложения в стиле ниже Поле является необязательным для вас, чтобы создать подпапку в стиле сертификата для сохранения вложений или переименовать сохраненные вложения в стиле сертификата.
2.3) Нажмите OK чтобы начать сохранять все вложения из выбранных писем.

Советы: С указанными выше конфигурациями все вложения будут сохранены в указанной папке. Если вы хотите сохранить только некоторые сертифицированные вложения, например сохранить только файлы PDF со словом «счет-фактура» в имени файла, вы можете настроить условия фильтрации следующим образом.

Нажмите Дополнительные параметры кнопку, чтобы развернуть Состояние фильтраs;
Уточняйте условия исходя из ваших потребностей.
Советы: Здесь я проверяю Имя вложения содержит поле, а затем введите «счет-фактуру» в текстовое поле, затем установите флажок Тип вложения введите ".pdf" в текстовое поле.

3. В следующем всплывающем диалоговом окне нажмите Да для продолжения.

Затем вложения в выбранных письмах сразу сохраняются в указанную папку.

Советы: Чтобы отсоединить вложения от выбранных писем и оставить в теле письма только гиперссылки на вложения, Отключить все вложения функция может помочь.

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

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

Автоматически загружать / сохранять вложения из Outlook в определенную папку
Вообще говоря, вы можете сохранить все вложения одного электронного письма, щелкнув «Вложения»> «Сохранить все вложения в Outlook». Но если вам нужно сохранить все вложения из всех полученных писем и получающих писем, какой идеал? В этой статье будут представлены два решения для автоматической загрузки вложений из Outlook в определенную папку.

Сохранять вложения при ответе в Outlook
Когда мы пересылаем сообщение электронной почты в Microsoft Outlook, исходные вложения в этом сообщении электронной почты остаются в перенаправленном сообщении. Однако, когда мы отвечаем на сообщение электронной почты, исходные вложения не будут прикреплены к новому ответному сообщению. Здесь мы собираемся познакомить вас с парочкой приемов сохранения исходных вложений при ответе в Microsoft Outlook.

Искать слова во вложении (содержимом) в Outlook
Когда мы вводим ключевое слово в поле мгновенного поиска в Outlook, оно будет искать ключевое слово в темах, телах, вложениях писем и т. Д. Но теперь мне просто нужно искать ключевое слово в содержимом вложений только в Outlook, есть идея? В этой статье приведены подробные инструкции по простому поиску слов в содержимом вложений в Outlook.