2 dávkové metody Otevřete všechny přílohy v e-mailu aplikace Outlook

Když obdržíte e-mail s několika přílohami, můžete někdy doufat, že je otevřete hromadně. Tento článek se bude zabývat tímto problémem a představí vám 2 přístupy k jeho získání.

Určitě jste již obdrželi takový e-mail, který obsahuje několik příloh. Je docela snadné otevřít jednu z příloh jednoduše dvojitým kliknutím. Jak ale můžete rychle otevřít všechny přílohy v dávce, jak je můžete získat? Je zřejmé, že Outlook nám takovou funkci neposkytuje. Proto musíte hledat jiné prostředky. Následuje 2 tipy.

Metoda 1: Dávkové otevření všech příloh pomocí Uložit všechny přílohy

Pokud jsou přílohy ve stejném typu souboru, můžete použít tuto metodu:

1. Pro začátek vyberte e-mail.
2. Poté položte jednu přílohu v podokně pro čtení.
3. Dále na viditelné liště „Přílohy“ najdete a klikněte na tlačítko „Uložit všechny přílohy“.
4. Následně v malém vyskakovacím dialogovém okně klikněte na „OK“.
5. V následujícím dialogovém okně „Uložit všechny přílohy“ vyberte cílovou složku pro jejich uložení a klikněte na „OK“.
6. Nakonec můžete vybranou složku otevřít.

• Stisknutím kláves „Ctrl + A“ vyberte všechny uložené přílohy.
• Poté na ně klikněte pravým tlačítkem.
• V nabídce s pravým kliknutím můžete vybrat možnost „Otevřít“.

Výše uvedená metoda je použitelná pouze v případě, že všechny přílohy jsou ve stejném typu souboru. Pokud tomu tak ale není, můžete použít následující prostředky.

Metoda 2: Dávkové otevření všech příloh pomocí aplikace Outlook VBA

Metoda bude fungovat efektivně, pokud jsou přílohy v běžných typech souborů - „.docx“, „.doc“, „.txt“, „.xlsx“, „xls“, „.jpg“, „.png“, „jpeg “.

1. Na prvním místě stiskněte klávesy „Alt + F11“.
2. Poté se dostanete do okna editoru VBA.
3. Nyní musíte otevřít modul, který se nepoužívá.
4. Následně do něj zkopírujte a vložte následující kódy 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. Poté můžete zavřít editor VBA a přidat makro na panel nástrojů Rychlý přístup.
6. Nakonec to můžete vyzkoušet.

• Nejprve vyberte e-mail.
• Poté klikněte na tlačítko makra na panelu nástrojů Rychlý přístup.
• Okamžitě se všechny přílohy ve vybraném e-mailu otevřou v dávce, například následující snímek obrazovky:

Chraňte své údaje PST efektivně

Protože Outlook PST je citlivý na různé faktory, měli byste vyvinout velké úsilí, abyste zabránili jeho poškození. Jinak, jakmile se váš PST poškodí, na opravit PST bude značně náročný úkol. Scanpst.exe v takovém případě nepomůže. Jedinou možností je tedy použít silný externí nástroj, jako je DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně poškozený mdf a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com