2 metoder for å batchåpne alle vedleggene i Outlook-e-posten din

Når du mottar en e-post som er lagt ved flere vedlegg, kan det hende du håper å åpne dem samtidig. Denne artikkelen vil se på dette problemet og introdusere deg 2 metoder for å få det.

Du må noen gang ha mottatt en slik e-post som inneholder flere vedlegg. Det er ganske enkelt å åpne et av vedleggene ved å dobbeltklikke på det. Men hvis du vil raskt åpne alle vedleggene i batch, hvordan kan du få det? Det er åpenbart at Outlook ikke gir oss en slik funksjon. Derfor må du søke andre midler. Følgende er 2 tips.

Metode 1: Batch-åpne alle vedleggene via Lagre alle vedlegg

Hvis vedleggene er av samme filtype, kan du bruke denne metoden:

1. Til å begynne med, velg en e-post.
2. Pitch deretter på ett vedlegg i leseruten.
3. Neste i det synlige «Vedlegg»-båndet kan du finne og klikke på «Lagre alle vedlegg»-knappen.
4. Deretter klikker du på "OK" i den lille popup-dialogboksen.
5. I den følgende "Lagre alle vedlegg"-dialogboksen velger du en destinasjonsmappe for å lagre dem og klikker "OK".
6. Til slutt kan du åpne den valgte mappen.

• Trykk "Ctrl + A" for å velge alle de lagrede vedleggene.
• Høyreklikk deretter på dem.
• I høyreklikkmenyen kan du velge "Åpne"-alternativet.

Metoden ovenfor gjelder bare i tilfeller der alle vedleggene er i samme filtype. Men hvis ikke, kan du bruke følgende metoder.

Metode 2: Batch-åpne alle vedleggene via Outlook VBA

Metoden vil fungere effektivt hvis vedleggene er i vanlige filtyper – “.docx”, “.doc”, “.txt”, “.xlsx”, “xls”, “.jpg”, “.png”, “jpeg ".

1. For det første, trykk på "Alt + F11"-tastene.
2. Deretter kommer du inn i VBA-redigeringsvinduet.
3. Nå må du åpne en modul som ikke er i bruk.
4. Deretter kopierer og limer du inn 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. Etter det kan du lukke VBA-editoren og legge til makroen til hurtigtilgangsverktøylinjen.
6. Endelig kan du prøve.

• Først velger du en e-post.
• Klikk deretter på makroknappen i verktøylinjen for hurtigtilgang.
• Umiddelbart vil alle vedleggene i den valgte e-posten bli åpnet i batch, som følgende skjermbilde:

Beskytt PST-dataene dine effektivt

Siden Outlook PST er sårbar for ulike faktorer, bør du anstrenge deg mye for å forhindre korrupsjon. Ellers, når PST-en din blir ødelagt, skal du reparere PST vil være en betydelig krevende oppgave. Scanpst.exe vil ikke hjelpe i et slikt tilfelle. Så din eneste utvei er å bruke et potent eksternt verktøy, som f.eks DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert skadet mdf og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med