2 Metoder til batch-åbning Alle vedhæftede filer i din Outlook-e-mail

Når du modtager en e-mail, der er vedhæftet med flere vedhæftede filer, kan du nogle gange håbe at åbne dem samlet. Denne artikel vil se på dette emne og introducere dig to tilgange til at få det.

Du skal nogensinde have modtaget en sådan e-mail, der indeholder flere vedhæftede filer. Det er ret nemt at åbne en af ​​vedhæftede filer ved blot at dobbeltklikke på den. Men hvis du hurtigt vil åbne alle vedhæftede filer, hvordan kan du få det? Det er indlysende, at Outlook ikke giver os en sådan funktion. Derfor er du nødt til at søge andre midler. Følgende er 2 tip.

Metode 1: Batch Åbn alle vedhæftede filer via Gem alle vedhæftede filer

Hvis vedhæftede filer er i samme filtype, kan du bruge denne metode:

1. Til at starte med skal du vælge en e-mail.
2. Pitch derefter på en vedhæftet fil i læseruden.
3. Derefter i det synlige "Vedhæftede filer" bånd kan du finde og klikke på knappen "Gem alle vedhæftede filer".
4. Klik derefter på “OK” i den lille popup-dialogboks.
5. I den følgende dialogboks "Gem alle vedhæftede filer" skal du vælge en destinationsmappe til at gemme dem og klikke på "OK".
6. Endelig kan du åbne den valgte mappe.

• Tryk på "Ctrl + A" for at vælge alle de gemte vedhæftede filer.
• Højreklik derefter på dem.
• I menuen med højreklik kan du vælge "Åbn".

Ovenstående metode gælder kun i tilfælde, hvor alle vedhæftede filer er i samme filtype. Men hvis ikke, kan du bruge følgende metoder.

Metode 2: Batch Åbn alle vedhæftede filer via Outlook VBA

Metoden fungerer effektivt, hvis vedhæftede filer er i almindelige filtyper - ".docx", ".doc", ".txt", ".xlsx", "xls", ".jpg", ".png", "jpeg ”.

1. For det første skal du trykke på “Alt + F11” -tasten.
2. Derefter kommer du ind i VBA editor-vinduet.
3. Nu skal du åbne et modul, der ikke er i brug.
4. Kopier og indsæt derefter følgende VBA-koder i den.

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. Derefter kan du lukke VBA-editoren og tilføje makroen til værktøjslinjen Hurtig adgang.
6. Endelig kan du prøve.

• Vælg først en e-mail.
• Klik derefter på makroknappen i værktøjslinjen Hurtig adgang.
• Umiddelbart åbnes alle vedhæftede filer i den valgte e-mail i batch, ligesom følgende skærmbillede:

Beskyt dine PST-data effektivt

Da Outlook PST er sårbar over for forskellige faktorer, bør du gøre en stor indsats for at forhindre det i korruption. Ellers, når din PST bliver ødelagt, til reparation PST vil være en meget besværlig opgave. Scanpst.exe hjælper ikke i et sådant tilfælde. Så din eneste udvej er at anvende et kraftigt eksternt værktøj, såsom DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder beskadiget mdf og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com