2 методи для пакетного відкриття всіх вкладень у вашій електронній пошті Outlook

Рішення для Outlook Вересень 29, 2025
Поділитися зараз:

Коли ви отримуєте електронне повідомлення, до якого додається кілька вкладень, іноді, ви можете сподіватися відкрити їх масово. Ця стаття розгляне цю проблему та представить вам 2 підходи до її отримання.

Ви, мабуть, коли-небудь отримували такий електронний лист, що містить кілька вкладень. Відкрити одне із вкладень досить просто, двічі клацнувши по ньому. Але якщо ви хочете швидко відкрити всі вкладення в пакетному режимі, як ви можете це отримати? Очевидно, що Outlook не надає нам такої функції. Отже, потрібно шукати інші засоби. Далі подано 2 поради.

Пакетне відкриття всіх вкладень

Спосіб 1: Пакетне відкриття всіх вкладень за допомогою функції Зберегти всі вкладення

Якщо вкладення мають однаковий тип файлу, ви можете скористатися цим методом:

  1. Для початку виберіть електронну пошту.
  2. Потім подайте на одному додатку в області читання.Виберіть вкладення в одному електронному листі
  3. Далі на видимій стрічці «Вкладені файли» ви можете знайти та натиснути кнопку «Зберегти всі вкладення».Зберегти всі вкладення
  4. Згодом у маленькому діалоговому вікні, що спливає, натисніть “OK”.Підтвердьте Зберегти всі вкладення
  5. У наступному діалоговому вікні «Зберегти всі вкладення» виберіть папку призначення для їх збереження та натисніть «OK».
  6. Нарешті, ви можете відкрити вибрану папку.
  • Натисніть “Ctrl + A”, щоб вибрати всі збережені вкладення.
  • Потім клацніть правою кнопкою миші на них.
  • У меню, що клацається правою кнопкою миші, ви можете вибрати опцію “Відкрити”.Пакетне відкриття всіх вкладень того самого типу файлу

Вищезазначений метод застосовується лише в тому випадку, якщо всі вкладення мають один і той самий тип файлу. Але якщо ні, ви можете скористатися наступними засобами.

Спосіб 2: Пакетне відкриття всіх вкладень через Outlook VBA

Метод буде ефективно працювати, якщо вкладення мають загальні типи файлів - ".docx", ".doc", ".txt", ".xlsx", "xls", ".jpg", ".png", "jpeg ".

  1. В першу чергу натисніть клавіші “Alt + F11”.
  2. Тоді ви потрапите у вікно редактора VBA.
  3. Тепер вам потрібно відкрити модуль, який не використовується.
  4. Згодом скопіюйте та вставте в нього такі коди VBA.
Sub OpenAllAttachments()
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim objFileSystem As Object
    Dim objTempFolder As Object
    Dim strFile As String
    Dim objWordApp As Word.Application
    Dim objWordDocument As Word.Document
    Dim objWordRange As Word.Range
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorkSheet As Excel.Worksheet
    Dim objExcelRange As Excel.Range
 
    Set objMail = Application.ActiveExplorer.Selection.Item(1)
    Set objAttachments = objMail.attachments
 
    If objAttachments.Count > 0 Then
       For Each objAttachment In objAttachments
           'Save the attachments to Temp folder
           Set objFileSystem = CreateObject("Scripting.FileSystemObject")
           Set objTempFolder = objFileSystem.GetSpecialFolder(2)
           strFile = objTempFolder.Path & "\" & objAttachment.DisplayName
           objAttachment.SaveAsFile strFile
 
           'Batch open all the attached Word documents and Text Files
           If InStr(LCase(strFile), "docx") > 0 Or InStr(LCase(strFile), "doc") > 0 Or InStr(LCase(strFile), "txt") > 0 Then
              Set objWordApp = CreateObject("Word.Application")
              Set objWordDocument = objWordApp.Documents.Open(strFile)
              objWordDocument.Activate
              Set objWordRange = objWordDocument.Range(0, 0)
              objWordApp.Visible = True
              objWordDocument.ActiveWindow.Visible = True
           End If
 
          'Batch open all the attached Excel workbooks
          If InStr(LCase(strFile), "xlsx") > 0 Or InStr(LCase(strFile), "xls") > 0 Then
             Set objExcelApp = CreateObject("Excel.Application")
             Set objExcelWorkbook = objExcelApp.Workbooks.Open(strFile)
             Set objExcelWorkSheet = objExcelWorkbook.Sheets(1)
             objExcelWorkSheet.Activate
             Set objExcelRange = objExcelWorkSheet.Range("A1")
             objExcelRange.Activate
             objExcelApp.Visible = True
          End If
 
          'Batch open all the attached pictures via Windows image view
          If InStr(LCase(strFile), "jpg") > 0 Or InStr(LCase(strFile), "png") > 0 Or InStr(LCase(strFile), "jpeg") > 0 Then
             Shell "RunDLL32.exe C:\Windows\System32\Shimgvw.dll,ImageView_Fullscreen " & strFile
          End If
       Next
    End If
End Sub

Коди VBA - Відкрийте всі вкладення

  1. Після цього ви можете закрити редактор VBA і додати макрос на панель швидкого доступу.додати макрос на панель швидкого доступу
  2. Нарешті можна спробувати.
  • По-перше, виберіть електронний лист.
  • Потім натисніть кнопку макросу на панелі швидкого доступу.Спробуйте кнопку макросу
  • Негайно всі вкладення у вибраному електронному листі будуть відкриті в пакетному режимі, як на наступному скріншоті:Пакетне відкриття всіх вкладень загальних типів файлів

Захистіть свої дані PST ефективно

Оскільки Outlook PST вразливий до різних факторів, вам слід докласти чимало зусиль, щоб запобігти його корупції. В іншому випадку, як тільки ваш PST буде пошкоджений, ремонт PST буде важким завданням. Scanpst.exe у такому випадку не допоможе. Отже, єдиним вашим засобом є застосування потужного зовнішнього інструменту, такого як DataNumen Outlook Repair.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі пошкоджений mdf та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com

Поділитися зараз:

Коментарі закриті.