2 метода за групово отваряне на всички прикачени файлове във вашия имейл на Outlook

Когато получите имейл, придружен с няколко прикачени файла, понякога може да се надявате да ги отворите групово. Тази статия ще разгледа този проблем и ще ви представи 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

5. След това можете да затворите редактора на VBA и да добавите макроса към лентата с инструменти за бърз достъп.
6. Накрая можете да опитате.

• Първо изберете имейл.
• След това щракнете върху бутона за макрос в лентата с инструменти за бърз достъп.
• Веднага всички прикачени файлове в избрания имейл ще бъдат отворени групово, като следната екранна снимка:

Защитете ефективно своите PST данни

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

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително повреден mdf и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com