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. Використовувати вікна + E ярлик для запуску Провідник файлів.
2. Перейдіть до Документи папку з лівої бічної панелі.
3. Клацніть правою кнопкою миші в будь-якому місці правого розділу та виберіть новий а потім Папка з контекстного меню.
4. Двічі клацніть назву папки та перейменуйте її як Додатки.

2. Створіть сценарій VBA

1. Тепер запустіть програму Outlook на ПК з Windows.
2. Виберіть Файл а потім виберіть Опції з лівої бічної панелі.
3. Виберіть Налаштувати стрічку з лівої панелі Параметри Word вікно.
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 спробуйте рішення, запропоновані в цьому посібнику.

Якщо у вас є якісь запитання або ви знаєте про інші методи, повідомте нас у розділі коментарів.