2 metode za skupno otvaranje svih privitaka u vašoj Outlook e-pošti

Kada primite e-poruku kojoj je pridodato nekoliko privitaka, ponekad se možete nadati da ćete ih otvoriti u grupi. Ovaj će se članak pozabaviti ovim problemom i predstaviti vam 2 pristupa kako ga dobiti.

Sigurno ste ikada primili takav e-mail koji sadrži nekoliko privitaka. Prilično je lako otvoriti jedan od privitaka jednostavnim dvoklikom na njega. Ali ako želite brzo otvoriti sve privitke u paketu, kako to možete dobiti? Očito je da nam Outlook ne pruža takvu mogućnost. Stoga morate tražiti druga sredstva. Slijede 2 savjeta.

Metoda 1: Skupno otvaranje svih privitaka putem opcije Spremi sve privitke

Ako su privici u istoj vrsti datoteke, možete koristiti ovu metodu:

1. Za početak odaberite e-poštu.
2. Zatim se uključite u jedan prilog u oknu za čitanje.
3. Zatim na vidljivoj vrpci "Privici" možete pronaći i kliknuti gumb "Spremi sve privitke".
4. Nakon toga, u skočnom malom dijaloškom okviru kliknite "U redu".
5. U sljedećem dijaloškom okviru "Spremi sve privitke" odaberite odredišnu mapu za njihovo spremanje i kliknite "U redu".
6. Na kraju možete otvoriti odabranu mapu.

• Pritisnite “Ctrl + A” za odabir svih spremljenih privitaka.
• Zatim desnom tipkom miša kliknite na njih.
• U izborniku desnim klikom možete odabrati opciju "Otvori".

Gornja metoda primjenjiva je samo u slučaju da su svi prilozi u istoj vrsti datoteke. Ali ako nisu, možete koristiti sljedeće načine.

Metoda 2: Skupno otvaranje svih privitaka putem programa Outlook VBA

Metoda će funkcionirati učinkovito ako su privici u uobičajenim vrstama datoteka – “.docx”, “.doc”, “.txt”, “.xlsx”, “xls”, “.jpg”, “.png”, “jpeg ”.

1. Prvo pritisnite tipke "Alt + F11".
2. Zatim ćete ući u prozor VBA editora.
3. Sada morate otvoriti modul koji nije u upotrebi.
4. Nakon toga kopirajte i zalijepite sljedeće VBA kodove u njega.

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. Nakon toga možete zatvoriti VBA uređivač i dodati makro na alatnu traku za brzi pristup.
6. Konačno možete pokušati.

• Najprije odaberite e-poštu.
• Zatim kliknite gumb makronaredbe na alatnoj traci za brzi pristup.
• Odmah će se svi privici u odabranoj e-pošti otvoriti u paketu, kao na sljedećoj snimci zaslona:

Učinkovito zaštitite svoje PST podatke

Budući da je Outlook PST osjetljiv na različite čimbenike, trebali biste uložiti mnogo napora kako biste ga spriječili od oštećenja. U suprotnom, nakon što se vaš PST ošteti, na popraviti PST bit će prilično naporan zadatak. Scanpst.exe u tom slučaju neće pomoći. Dakle, vaše jedino rješenje je primijeniti snažno vanjsko sredstvo, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oštećen mdf i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com