2 Mga Paraan upang Batch Buksan ang Lahat ng Mga Attachment sa Iyong Outlook Email

Kapag nakatanggap ka ng isang email na naidugtong ng maraming mga kalakip, kung minsan, maaari mong asahan na buksan ang mga ito nang maramihan. Ang artikulong ito ay titingnan sa isyung ito at ipakilala sa iyo ang 2 diskarte upang makuha ito.

Kailangang nakatanggap ka ng gayong email na naglalaman ng maraming mga kalakip. Napakadali upang buksan ang isa sa mga kalakip sa pamamagitan lamang ng pag-double click dito. Ngunit kung nais mong mabilis na buksan ang lahat ng mga kalakip sa pangkat, paano mo ito makukuha? Malinaw na ang Outlook ay hindi nagbibigay sa amin ng tulad ng isang tampok. Samakatuwid, kailangan mong maghanap ng iba pang mga paraan. Ang mga sumusunod ay 2 mga tip.

Paraan 1: Buksan ang Batch Lahat ng Mga Attachment sa pamamagitan ng I-save ang Lahat ng Mga Attachment

Kung ang mga attachment ay nasa parehong uri ng file, maaari mong gamitin ang pamamaraang ito:

1. Para magsimula, pumili ng email.
2. Pagkatapos ay itayo sa isang kalakip sa pane ng pagbabasa.
3. Susunod sa nakikitang laso na "Mga Attachment", maaari mong makita at mag-click sa pindutang "I-save ang Lahat ng Mga Attachment".
4. Kasunod, sa popup maliit na dialog box, i-click ang "OK".
5. Sa sumusunod na dialog box na "I-save ang Lahat ng Mga Attachment", pumili ng isang patutunguhang folder para sa pag-save ng mga ito at i-click ang "OK".
6. Panghuli maaari mong buksan ang napiling folder.

• Pindutin ang "Ctrl + A" upang mapili ang lahat ng nai-save na mga kalakip.
• Pagkatapos ay mag-right click sa kanila.
• Sa tamang pag-click sa menu, maaari mong piliin ang pagpipiliang "Buksan".

Ang pamamaraan sa itaas ay naaangkop lamang sa mga kaso kung saan ang lahat ng mga kalakip ay nasa parehong uri ng file. Ngunit kung hindi, maaari mong gamitin ang mga sumusunod na paraan.

Paraan 2: Buksan ang Batch Lahat ng Mga Attachment sa pamamagitan ng Outlook VBA

Ang pamamaraan ay gagana nang epektibo kung ang mga kalakip ay nasa mga karaniwang uri ng file - ".docx", ".doc", ".txt", ".xlsx", "xls", ".jpg", ".png", "jpeg ".

1. Sa unang lugar, pindutin ang mga pindutan ng "Alt + F11".
2. Pagkatapos ay makapunta ka sa window ng editor ng VBA.
3. Ngayon kailangan mong buksan ang isang module na hindi ginagamit.
4. Kasunod, kopyahin at i-paste ang mga sumusunod na VBA code dito.

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. Pagkatapos nito, maaari mong isara ang VBA editor at idagdag ang macro sa Quick Access Toolbar.
6. Sa wakas maaari kang magkaroon ng isang pagsubok.

• Una, pumili ng isang email.
• Pagkatapos i-click ang pindutan ng macro sa Quick Access Toolbar.
• Kaagad, ang lahat ng mga kalakip sa napiling email ay bubuksan sa pangkat, tulad ng sumusunod na screenshot:

Maingat na Maingat ang Iyong Data ng PST

Tulad ng Outlook PST ay mahina laban sa iba't ibang mga kadahilanan, dapat kang gumawa ng maraming mga pagsisikap upang maiwasan ito mula sa katiwalian. Kung hindi man, sa sandaling masira ang iyong PST, sa ayusin ang PST ay magiging isang mahirap na gawain. Ang Scanpst.exe ay hindi makakatulong sa ganitong kaso. Kaya ang iyong tanging resort ay upang mag-apply ng isang malakas na panlabas na tool, tulad ng DataNumen Outlook Repair.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang nasira mdf at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa