2 Metodes, kā pakešot atvērt visus Outlook e-pasta pielikumus

Kad saņemat e-pasta ziņojumu, kuram ir pievienoti vairāki pielikumi, dažkārt varat cerēt tos atvērt lielapjomā. Šajā rakstā tiks aplūkots šis jautājums un piedāvātas 2 metodes, kā to iegūt.

Noteikti kādreiz esat saņēmis šādu e-pasta ziņojumu, kurā ir vairāki pielikumi. Ir diezgan viegli atvērt vienu no pielikumiem, vienkārši veicot dubultklikšķi uz tā. Bet, ja vēlaties ātri atvērt visus pielikumus, kā to iegūt? Ir skaidrs, ka programma Outlook mums nenodrošina šādu iespēju. Tāpēc jums ir jāmeklē citi līdzekļi. Tālāk ir sniegti 2 padomi.

1. metode. Atveriet visus pielikumus, izmantojot Saglabāt visus pielikumus

Ja pielikumi ir vienā faila tipā, varat izmantot šo metodi:

1. Lai sāktu, atlasiet e-pastu.
2. Pēc tam lasīšanas rūtī novietojiet vienu pielikumu.
3. Tālāk redzamajā lentē “Pielikumi” varat atrast un noklikšķināt uz pogas “Saglabāt visus pielikumus”.
4. Pēc tam uznirstošajā mazajā dialoglodziņā noklikšķiniet uz “OK”.
5. Nākamajā dialoglodziņā “Saglabāt visus pielikumus” atlasiet to saglabāšanas mērķa mapi un noklikšķiniet uz “OK”.
6. Beidzot varat atvērt atlasīto mapi.

• Nospiediet "Ctrl + A", lai atlasītu visus saglabātos pielikumus.
• Pēc tam ar peles labo pogu noklikšķiniet uz tiem.
• Ar peles labo pogu noklikšķinot izvēlnē, varat atlasīt opciju “Atvērt”.

Iepriekš minētā metode ir piemērojama tikai tādā gadījumā, ja visi pielikumi ir vienā faila tipā. Bet, ja nē, varat izmantot šādus līdzekļus.

2. metode: pakešu atvēršana visus pielikumus, izmantojot Outlook VBA

Metode darbosies efektīvi, ja pielikumi ir parastajos failu tipos – “.docx”, “.doc”, “.txt”, “.xlsx”, “xls”, “.jpg”, “.png”, “jpeg”. ”.

1. Pirmkārt, nospiediet taustiņu “Alt + F11” taustiņus.
2. Pēc tam jūs nokļūsit VBA redaktora logā.
3. Tagad jums ir jāatver modulis, kas netiek izmantots.
4. Pēc tam nokopējiet un ielīmējiet tajā šādus VBA kodus.

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. Pēc tam varat aizvērt VBA redaktoru un pievienot makro ātrās piekļuves rīkjoslai.
6. Beidzot jūs varat izmēģināt.

• Pirmkārt, atlasiet e-pastu.
• Pēc tam ātrās piekļuves rīkjoslā noklikšķiniet uz makro pogas.
• Tūlīt visi atlasītā e-pasta pielikumi tiks atvērti pakešu veidā, piemēram, šajā ekrānuzņēmumā:

Efektīvi aizsargājiet savus PST datus

Tā kā Outlook PST ir neaizsargāta pret dažādiem faktoriem, jums ir jāpieliek lielas pūles, lai novērstu tās bojājumus. Pretējā gadījumā, tiklīdz jūsu PST tiek bojāts, uz remonts PST būs ļoti smags uzdevums. Scanpst.exe šādā gadījumā nepalīdzēs. Tāpēc jūsu vienīgais risinājums ir izmantot spēcīgu ārējo rīku, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp bojāts mdf un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar