Как загрузить вложения Outlook из нескольких электронных писем в локальную папку

Загрузка вложений из одного электронного письма очень проста. Большинство клиентов предлагают способ загрузки ZIP-файлов. Но это сложно, когда дело доходит до извлечения или загрузки вложений Outlook из нескольких электронных писем. Поскольку эта функция заранее не предлагается ни одним из онлайн- или офлайн-клиентов, нам придется найти сценарии и инструменты для ее реализации.

Как загрузить вложения из нескольких электронных писем в Outlook

Вы можете использовать любой из этих методов для загрузки вложений. Для этого потребуется VB Script, поэтому убедитесь, что у вас достаточно прав для вашей учетной записи.

1. NirSoft OutlookAttachView
2. Пользовательский сценарий VB

Каждый инструмент имеет свои преимущества и недостатки. Убедитесь, что вы знаете о них, прежде чем выбрать, какой из них использовать.

1] NirSoft OutlookAttachView

Если вы используете версию Outlook для Microsoft Office для получения электронной почты, вы можете использовать бесплатное программное обеспечение под названием OutlookAttachView для загрузки всех ваших вложений. Он работает со всеми типами Outlook с 2003 года, хотя явный Outlook не поддерживается.

Для начала загрузите программное обеспечение (получите 64-разрядную версию, если вы используете 64-разрядную версию Outlook), распакуйте ZIP-файл и откройте OutlookAttachView.exe.

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

• Какой профиль Outlook сканировать
• Сканировать сообщения, созданные за последние X дней
• Исключение определенных типов документов
• Сканировать сообщения от определенных людей
• Сканировать вложения, содержащие определенный текстовый контент

Выполните следующие действия, чтобы извлечь вложения:

• После установки программного обеспечения оставьте все по умолчанию, если вы действительно хотите, чтобы каждое вложение в вашем почтовом ящике сохранялось. Настройте программное обеспечение. Когда вы будете готовы начать сканирование, нажмите OK.
• Сканирование быстрое; однако очевидно, что это займет больше времени, если вы получили массивный архив электронных писем. К сожалению, при сканировании нет индикатора выполнения, поэтому вы не можете сказать, как далеко оно продвинулось, поэтому вам лучше оставить его работающим в фоновом режиме и вернуться позже, чтобы увидеть, завершено ли оно.
• После завершения сканирования вы сможете предварительно просмотреть и просмотреть все вложения со столбцами, показывающими такие записи, как имя файла, длина файла и расширение.
• Чтобы выбрать определенные вложения, удерживайте Ctrl и щелкайте левой кнопкой мыши по каждой строке по очереди. Либо нажмите Ctrl + A, чтобы выделить (выбрать) все вложения.
• Затем откройте меню «Файл» и нажмите «Копировать выбранные вложения в» (нажмите F4). Вы можете указать, куда экспортировать вложения и форматировать имена документов. Когда будете готовы, нажмите OK.
• Он загрузит или сохранит все выбранные вложения в целевую папку.

Однако их нельзя удалить из ваших электронных писем, поэтому вы можете получить к ним доступ через Outlook, если хотите.

2] Использование сценария VB

Этот сегмент демонстрирует код VBA в пошаговом руководстве , которое поможет вам одновременно сохранять все вложения из разных писем в выбранную папку .

• Во-первых , вам нужно создать папку для сохранения вложений на локальном диске. Используйте проводник и известное место, чтобы создать папку и назвать ее «Вложения».
• Выберите электронные письма, из которых вы хотите загрузить вложения , а затем нажмите клавиши ALT+F11, чтобы открыть окно программ Microsoft Visual Basic.

• Нажмите « Вставить » > «Модуль», чтобы открыть окно «Модуль», скопируйте в окно один из следующих кодов VBA.
• Нажмите F5 или используйте меню для запуска кода, и все вложения из выбранного электронного письма будут загружены или скопированы в папку «Вложения».

код VBA

Dim GCount As Integer
Dim GFilepath As String
Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
VBA.MkDir xFolderPath
End If
GFilepath = ""
For Each xMailItem In xSelection
Set xAttachments = xMailItem.Attachments
xAttCount = xAttachments.Count
xSaveFiles = ""
If xAttCount > 0 Then
For i = xAttCount To 1 Step -1
GCount = 0
xFilePath = xFolderPath & xAttachments.Item(i).FileName
GFilepath = xFilePath
xFilePath = FileRename(xFilePath)
If IsEmbeddedAttachment(xAttachments.Item(i)) = False Then
xAttachments.Item(i).SaveAsFile xFilePath
If xMailItem.BodyFormat <> olFormatHTML Then
xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
Else
xSaveFiles = xSaveFiles & "<br>"& "<a href='file://"& xFilePath & "'>"& xFilePath & "</a>"
End If
End If
Next i
If xSaveFiles <> ""Then
If xMailItem.BodyFormat <> olFormatHTML Then
xMailItem.Body = vbCrLf & "The file(s) were saved to "& xSaveFiles & vbCrLf & xMailItem.Body
Else
xMailItem.HTMLBody = "<p>"& "The file(s) were saved to "& xSaveFiles & "</p>"& xMailItem.HTMLBody
End If
End If
xMailItem.Save
End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub

Function FileRename(FilePath As String) As String
Dim xPath As String
Dim xFso As FileSystemObject
On Error Resume Next
Set xFso = CreateObject("Scripting.FileSystemObject")
xPath = FilePath
FileRename = xPath
If xFso.FileExists(xPath) Then
GCount = GCount + 1
xPath = xFso.GetParentFolderName(GFilepath) & "\"& xFso.GetBaseName(GFilepath) & ""& GCount & "."+ xFso.GetExtensionName(GFilepath)
FileRename = FileRename(xPath)
End If
xFso = Nothing
End Function

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

Вы также можете скопировать код отсюда и вставить его.

Как загрузить вложения из нескольких писем в Gmail

Бесплатное дополнение SendPulse для сохранения писем и вложений для Gmail экспортирует ваши вложения в Google. Что выделяет его, так это то, что он автоматически начинает поиск новых вложений, а это означает, что вам никогда не следует думать об использовании этого метода вручную. Он корректно работает для одноразового экспорта, если это все, что вам нужно.

Примечание. Служба будет иметь доступ к вашей учетной записи Gmail, поэтому сделайте осознанный выбор, если хотите подключиться.

Следуйте инструкциям, чтобы использовать этот инструмент

• Перейдите на веб-страницу надстройки и нажмите «Установить».
• Выберите свою учетную запись Google и нажмите «Разрешить», а затем завершите.
• Перейдите в Google Sheets и создайте новую таблицу.
• Посетите «Дополнения» > «Сохранить электронные письма и вложения» > «Открыть боковую панель».
• Установите метку Gmail, который вы хотите сканировать, затем укажите другие фильтры, например, от кого или после электронной почты, и раньше, чем диапазон дат (вы хотите установить по крайней мере эти фильтры).

• Нажмите «Параметры загрузки», настройте их по мере необходимости, затем нажмите «Выбрать папку», чтобы выбрать папку на вашем диске, в которой должны храниться вложения.
• Когда вы закончите, нажмите Сохранить правило > Выполнить. Надстройка даже будет автоматически запускаться и обновляться по мере поступления новых электронных писем.

Вы можете хранить вложения внутри диска. Либо откройте диск, щелкните папку правой кнопкой мыши и выберите «Загрузить», чтобы сохранить локальную реплику. Затем вы можете удалить папку с диска, чтобы освободить облачное хранилище.

Скачать расширение отсюда

Как загрузить вложения из нескольких писем на любом почтовом сервере

Загрузчик почтовых вложений — доступный вариант, поскольку он работает во многих почтовых службах, таких как Outlook, Gmail, AOL, Yahoo или любом почтовом сервере. Это также бесплатно для личного использования.

Недостатком является то, что есть несколько надстроек, которые вы можете получить в платной версии. Это включает в себя возможность практиковать пару фильтров и загружать из нескольких учетных записей одновременно. Вы можете найти полную разницу на странице лицензирования программного обеспечения.

Примечание. Вам нужно будет ввести свои учетные данные электронной почты здесь. Поэтому убедитесь, что у вас есть полная уверенность и сделать осознанный выбор.

Давайте рассмотрим самый простой способ извлечения вложений из нескольких электронных писем.

• Загрузите ZIP, распакуйте его и запустите установщик EXE внутри. После подключения запустите загрузчик почтовых вложений.
• Нажмите «Настройки». Здесь вы можете выбрать почтовый сервер (кто бы ни отправил вашу электронную почту), после чего вы вводите учетную запись и пароль. Обязательно прочитайте черную полосу внизу, включая важную информацию.

• Когда все будет готово, нажмите «Проверить соединение». Если это не сработает, убедитесь, что вы включили протокол POP/IMAP, как требуется, и что запрос вашей учетной записи и пароль верны. Когда вы правы, нажмите Сохранить.
• Если вы хотите, чтобы вложения выводились в уникальную папку, измените область сохранения. Вы можете дополнительно настроить эту систему с помощью вкладок. Например, в папке/документах вы можете ограничить поиск выбранными папками. При поиске можно указать диапазон дат. В фильтрах можно указать вопросы, состоящие из отправителя или строки проблемы.
• Когда будете готовы, нажмите «Подключиться и загрузить». Затем он сохранит ваши вложения в папку по вашему выбору.

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

Заключительные слова

Загрузка нескольких вложений из нескольких электронных писем должна быть функцией во всех почтовых клиентах. Я использую скрипт для загрузки PDF-документов, которые получаю от клиентов каждый день в конце месяца. Это гарантирует, что у меня есть копии всех, и я не трачу время на загрузку их по отдельности.