2 Metodi za skupinsko odpiranje vseh prilog v Outlookovi e-pošti

Ko prejmete e-poštno sporočilo z več priponkami, včasih morda upate, da jih boste odprli v velikem obsegu. Ta članek bo obravnaval to težavo in vam predstavil 2 pristopa, kako jo doseči.

Zagotovo ste že kdaj prejeli takšno e-pošto, ki vsebuje več priponk. Precej enostavno je odpreti eno od priponk z dvojnim klikom nanjo. Če pa želite hitro odpreti vse priloge v paketu, kako lahko to dobite? Očitno je, da nam Outlook ne ponuja takšne funkcije. Zato morate poiskati druga sredstva. Sledita 2 nasveta.

1. način: Paketno odprite vse priloge prek možnosti Shrani vse priloge

Če so priloge v isti vrsti datoteke, lahko uporabite ta način:

1. Za začetek izberite e-poštno sporočilo.
2. Nato se obrnite na eno prilogo v podoknu za branje.
3. Nato v vidnem traku »Priloge« poiščite in kliknite gumb »Shrani vse priloge«.
4. Nato v pogovornem oknu, ki se odpre, kliknite »V redu«.
5. V naslednjem pogovornem oknu »Shrani vse priloge« izberite ciljno mapo za njihovo shranjevanje in kliknite »V redu«.
6. Končno lahko odprete izbrano mapo.

• Pritisnite "Ctrl + A", da izberete vse shranjene priloge.
• Nato jih kliknite z desnim klikom.
• V meniju z desnim klikom lahko izberete možnost »Odpri«.

Zgornja metoda je uporabna le v primeru, ko so vse priloge v isti vrsti datoteke. Če pa ne, lahko uporabite naslednje načine.

2. način: Paketno odprite vse priloge prek programa Outlook VBA

Metoda bo delovala učinkovito, če so priloge v običajnih vrstah datotek – ».docx«, ».doc«, ».txt«, ».xlsx«, »xls«, ».jpg«, ».png«, »jpeg« ”.

1. Najprej pritisnite tipke “Alt + F11”.
2. Nato boste prišli v okno urejevalnika VBA.
3. Zdaj morate odpreti modul, ki ni v uporabi.
4. Nato kopirajte in prilepite vanjo naslednje kode 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. Po tem lahko zaprete urejevalnik VBA in dodate makro v orodno vrstico za hitri dostop.
6. Končno lahko poskusite.

• Najprej izberite e-poštno sporočilo.
• Nato v orodni vrstici za hitri dostop kliknite gumb makra.
• Takoj bodo vse priloge v izbranem e-poštnem sporočilu odprte v paketu, kot je ta posnetek zaslona:

Učinkovito zaščitite svoje podatke PST

Ker je Outlook PST ranljiv za različne dejavnike, se morate zelo potruditi, da preprečite poškodbe. V nasprotnem primeru, ko se vaš PST poškoduje, na popravilo PST bo precej naporna naloga. Scanpst.exe v tem primeru ne bo pomagal. Torej je vaša edina rešitev uporaba močnega zunanjega orodja, kot je npr DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z poškodovan mdf in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com