2 meetodit kõigi Outlooki meilis olevate manuste pakkimiseks

Kui saate meili, millele on lisatud mitu manust, võite mõnikord loota neid hulgi avada. Selles artiklis käsitletakse seda probleemi ja tutvustatakse teile kahte lähenemisviisi selle saamiseks.

Olete kindlasti saanud sellise meili, mis sisaldab mitut manust. Ühte manust on üsna lihtne avada, lihtsalt sellel topeltklõpsates. Aga kui soovite kiiresti kõik manused partiidena avada, kuidas seda hankida? On ilmne, et Outlook meile sellist funktsiooni ei paku. Seetõttu peate otsima muid vahendeid. Järgmised on 2 nõuannet.

1. meetod: avage kõik manused partii kaudu Salvesta kõik manused

Kui manused on sama failitüübiga, saate kasutada järgmist meetodit.

1. Alustamiseks valige e-posti aadress.
2. Seejärel asetage lugemispaanil üks manus.
3. Järgmisena leiate nähtavalt "Manused" lindilt nupu "Salvesta kõik manused" ja klõpsake sellel.
4. Seejärel klõpsake hüpikakna väikeses dialoogiboksis nuppu "OK".
5. Järgmises dialoogiboksis "Salvesta kõik manused" valige nende salvestamiseks sihtkaust ja klõpsake "OK".
6. Lõpuks saate valitud kausta avada.

• Kõigi salvestatud manuste valimiseks vajutage "Ctrl + A".
• Seejärel paremklõpsake neid.
• Paremklõpsuga menüüs saate valida valiku "Ava".

Ülaltoodud meetod kehtib ainult juhul, kui kõik manused on samas failitüübis. Kui aga mitte, saate kasutada järgmisi vahendeid.

2. meetod: pakkides avage kõik manused Outlook VBA kaudu

Meetod töötab tõhusalt, kui manused on levinud failitüüpides – ".docx", ".doc", ".txt", ".xlsx", "xls", ".jpg", ".png", "jpeg". ”.

1. Kõigepealt vajutage klahvikombinatsiooni Alt + F11.
2. Seejärel sisenete VBA redaktori aknasse.
3. Nüüd peate avama mooduli, mida ei kasutata.
4. Seejärel kopeerige ja kleepige sellesse järgmised VBA-koodid.

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ärast seda saate sulgeda VBA redaktori ja lisada makro kiirpääsu tööriistaribale.
6. Lõpuks saate proovida.

• Esiteks valige meiliaadress.
• Seejärel klõpsake kiirjuurdepääsu tööriistaribal makronuppu.
• Kohe avatakse kõik valitud meili manused partiidena, nagu järgmine ekraanipilt:

Kaitske oma PST-andmeid tõhusalt

Kuna Outlook PST on erinevate tegurite suhtes haavatav, peaksite selle korruptsiooni vältimiseks tegema palju pingutusi. Vastasel juhul, kui teie PST saab rikutud, siis remont PST saab olema üsna vaevarikas ülesanne. Scanpst.exe sellisel juhul ei aita. Seega on teie ainus abinõu kasutada tugevat välist tööriista, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas kahjustatud mdf ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom