3 способа загрузить все вложения из Outlook

Пройдите это руководство, чтобы узнать все способы

Как профессиональный пользователь, загрузка множества вложений из электронных писем, полученных в Outlook, может быть монотонной и занимать много времени.

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

Если вам интересно узнать пошаговую процедуру, оставайтесь с нами, пока мы проведем вас через процедуру.

Как загрузить все вложения из электронной почты?

1. Использование настольного приложения

1. Запустить Microsoft Outlook приложение на вашем ПК с Windows.
instagram story viewer
2. Найдите и откройте это электронное письмо в области чтения, откуда вы загружаете вложения.
3. Переключиться на Вложения раздел в верхней строке меню, щелкните правой кнопкой мыши один из вложенных файлов в правом разделе и выберите Сохранить все вложения в раскрывающемся меню.
4. нажмите Ctrl и выберите все вложения, которые вы хотите загрузить, в открывшемся небольшом диалоговом окне.
5. нажмите ХОРОШО кнопку после выбора необходимых вложений.
6. новый Сохранить как всплывающее окно для сохранения ваших вложений откроется. Перейдите в папку, в которой вы хотите сохранить вложенные файлы, и нажмите кнопку ХОРОШО кнопку в правом нижнем углу, чтобы начать загрузку вложения.

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

2. Использование веб-приложения

1. Доступ к Веб-приложение Microsoft Outlook с помощью предпочитаемого веб-браузера и введите свои учетные данные для входа, когда будет предложено войти.
2. Выберите Входящие папку из левой строки меню в Дом раздел веб-приложения.
3. Дважды щелкните соответствующее электронное письмо, чтобы просмотреть его содержимое в новом окне.
4. Нажмите на Скачать все кнопку для загрузки вложений в виде ZIP-файла.
5. Выберите место загрузки и нажмите кнопку ХОРОШО кнопка, если Сохранить как открывается диалоговое окно.

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

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

ПРИМЕЧАНИЕ

Вы можете попробовать этот метод, только если вы используете Outlook 2019, 2016, 2013, 2010, 2007 или 2003.

1. Создать новую папку

1. Использовать Окна + Е ярлык для запуска Проводник.
2. Перейдите к Документы папка с левой боковой панели.
3. Щелкните правой кнопкой мыши в любом месте правой части и выберите Новый с последующим Папка из контекстного меню.
4. Дважды щелкните имя папки и переименуйте ее как Вложения.

2. Создайте сценарий VBA

1. Теперь запустите приложение Outlook на ПК с Windows.
2. Выбрать Файл вариант, а затем выберите Параметры с левой боковой панели.
3. Выбирать Настроить ленту с левой панели Параметры слова окно.
4. Выберите Разработчик вариант в Основные вкладки и нажмите Плюс значок, чтобы добавить режим разработчика в меню ленты Outlook.
5. Закройте всплывающее окно «Параметры Word» и выберите Режим разработчика с последующим Visual Basic из главного меню.
6. Выбирать Проект1 отображается по умолчанию, а затем выберите Вставлять с последующим Модуль для доступа к окну модуля.
7. Теперь скопируйте и вставьте следующий код в Модуль1 и закрой окно.

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 & "" Else xSaveFiles = xSaveFiles & "
" & "" & xFilePath & "" End If End If Next i 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

3. Запустите VBS-скрипт

1. Переключиться на Режим разработчика а затем выберите Visual Basic с ленты Outlook.
2. Выбирать Модуль1 и ударил F5 ключ для запуска кода.
3. Нажмите на Сохранить вложение кнопку после выбора вложений для подтверждения действия.

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

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

Если вы столкнетесь с Что-то пошло не так ошибка в Outlook приложение, попробуйте решения, предложенные в этом руководстве.

Если у вас есть какие-либо вопросы или вы знаете о других методах, сообщите нам об этом в разделе комментариев.