2 metode za grupno otvaranje svih priloga u vašoj Outlook e-pošti

Kada primite e-poruku kojoj je priloženo nekoliko priloga, ponekad se možete nadati da ćete ih otvoriti na veliko. Ovaj članak će se baviti ovim problemom i predstaviti vam 2 pristupa kako biste ga dobili.

Sigurno ste ikada primili takav email koji sadrži nekoliko priloga. Prilično je lako otvoriti jedan od priloga jednostavnim dvostrukim klikom na njega. Ali ako želite brzo otvoriti sve priloge u paketu, kako to možete dobiti? Očigledno je da nam Outlook ne pruža takvu funkciju. Dakle, morate tražiti druga sredstva. U nastavku su 2 savjeta.

Metoda 1: Grupno otvaranje svih priloga putem Sačuvaj sve priloge

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

1. Za početak, odaberite e-poštu.
2. Zatim postavite jedan dodatak u oknu za čitanje.
3. Zatim na vidljivoj traci „Prilozi“ možete pronaći i kliknuti na dugme „Sačuvaj sve priloge“.
4. Nakon toga, u iskačućem malom dijaloškom okviru, kliknite na “OK”.
5. U sljedećem dijaloškom okviru “Sačuvaj sve priloge” odaberite odredišnu mapu za njihovo spremanje i kliknite “OK”.
6. Konačno možete otvoriti odabrani folder.

• Pritisnite “Ctrl + A” da odaberete sve sačuvane priloge.
• Zatim kliknite desnim klikom na njih.
• U meniju desnim klikom možete odabrati opciju „Otvori“.

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

Metoda 2: Grupno otvaranje svih priloga putem Outlook VBA

Metoda će efikasno raditi ako su prilozi u uobičajenim tipovima 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 editor i dodati makro na alatnu traku za brzi pristup.
6. Konačno možete probati.

• Prvo odaberite email.
• Zatim kliknite na dugme makro na traci sa alatkama za brzi pristup.
• Odmah će se svi prilozi u odabranoj e-poruci otvoriti u paketu, kao na sljedećem snimku ekrana:

Efektivno zaštitite svoje PST podatke

Budući da je Outlook PST osjetljiv na različite faktore, trebali biste uložiti mnogo napora da spriječite oštećenje. U suprotnom, kada se vaš PST pokvari, to popraviti PST biće prilično težak zadatak. Scanpst.exe neće pomoći u takvom slučaju. Dakle, vaše jedino rešenje je da primenite moćan spoljni alat, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oštećen mdf i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com