2 dávkové spôsoby otvorenia všetkých príloh v e-maile programu Outlook

Keď dostanete e-mail, ktorý je pripojený k niekoľkým prílohám, niekedy môžete dúfať, že ich otvoríte hromadne. Tento článok sa zameriava na túto problematiku a predstaví vám 2 prístupy, ako ju získať.

Určite ste už niekedy dostali taký e-mail, ktorý obsahuje niekoľko príloh. Je celkom ľahké otvoriť jednu z príloh jednoduchým dvojitým kliknutím. Ak by ste však chceli rýchlo otvoriť všetky prílohy v dávke, ako to môžete získať? Je zrejmé, že Outlook nám takúto funkciu neposkytuje. Preto musíte hľadať iné prostriedky. Nasledujú 2 tipy.

Metóda 1: Dávkové otvorenie všetkých príloh pomocou príkazu Uložiť všetky prílohy

Ak sú prílohy rovnakého typu súboru, môžete použiť túto metódu:

1. Na začiatok vyberte e-mail.
2. Potom položte jednu prílohu na tablu na čítanie.
3. Ďalej na viditeľnej páske „Prílohy“ nájdete a kliknite na tlačidlo „Uložiť všetky prílohy“.
4. Následne v malom vyskakovacom dialógovom okne kliknite na tlačidlo „OK“.
5. V nasledujúcom dialógovom okne „Uložiť všetky prílohy“ vyberte cieľový priečinok na ich uloženie a kliknite na tlačidlo „OK“.
6. Nakoniec môžete otvoriť vybraný priečinok.

• Stlačením kombinácie klávesov „Ctrl + A“ vyberte všetky uložené prílohy.
• Potom na ne kliknite pravým tlačidlom myši.
• V pravej ponuke kliknite na možnosť „Otvoriť“.

Vyššie uvedená metóda je použiteľná iba v prípade, že všetky prílohy sú v rovnakom type súboru. Ak však nie, môžete použiť nasledujúce prostriedky.

Metóda 2: Dávkové otvorenie všetkých príloh pomocou Outlooku VBA

Metóda bude fungovať efektívne, ak sú prílohy v bežných typoch súborov - „.docx“, „.doc“, „.txt“, „.xlsx“, „xls“, „.jpg“, „.png“, „jpeg “.

1. Na prvom mieste stlačte klávesové skratky „Alt + F11“.
2. Potom sa dostanete do okna editora VBA.
3. Teraz musíte otvoriť modul, ktorý sa nepoužíva.
4. Následne do nej skopírujte a vložte nasledujúce 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. Potom môžete zavrieť editor VBA a pridať makro na panel s nástrojmi Rýchly prístup.
6. Nakoniec to môžete vyskúšať.

• Najskôr vyberte e-mail.
• Potom kliknite na tlačidlo makra na paneli s nástrojmi Rýchly prístup.
• Okamžite sa všetky prílohy vo vybratom e-maile otvoria hromadne, napríklad na nasledujúcom obrázku:

Chráňte svoje údaje PST efektívne

Pretože je Outlook PST citlivý na rôzne faktory, mali by ste vynaložiť veľké úsilie, aby ste zabránili jeho poškodeniu. Inak, akonáhle sa váš PST poškodí, na opraviť PST bude značne náročná úloha. Scanpst.exe v takom prípade nepomôže. Vaše jediné riešenie je teda použiť silný externý nástroj, ako je napr DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane poškodený mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S