2 วิธีในการแบทช์เปิดไฟล์แนบทั้งหมดในอีเมล Outlook ของคุณ

โซลูชัน Outlook September 29, 2025

เมื่อคุณได้รับอีเมลที่มีไฟล์แนบหลายฉบับต่อท้ายบางครั้งคุณอาจหวังว่าจะเปิดเป็นกลุ่ม บทความนี้จะกล่าวถึงปัญหานี้และแนะนำ 2 แนวทางที่จะทำให้คุณได้รับ

คุณต้องเคยได้รับอีเมลดังกล่าวซึ่งมีไฟล์แนบหลายไฟล์ มันค่อนข้างง่ายที่จะเปิดไฟล์แนบอย่างใดอย่างหนึ่งเพียงแค่ดับเบิลคลิกที่มัน แต่ถ้าคุณต้องการเปิดไฟล์แนบทั้งหมดเป็นชุดอย่างรวดเร็วคุณจะรับมันได้อย่างไร? เห็นได้ชัดว่า Outlook ไม่ได้ให้คุณลักษณะดังกล่าวแก่เรา ดังนั้นคุณต้องแสวงหาวิธีการอื่น ต่อไปนี้เป็น 2 เคล็ดลับ

วิธีที่ 1: แบทช์เปิดไฟล์แนบทั้งหมดผ่านบันทึกไฟล์แนบทั้งหมด

หากไฟล์แนบอยู่ในประเภทไฟล์เดียวกันคุณสามารถใช้วิธีนี้:

ถึงtarเลือกอีเมล
จากนั้นวางสิ่งที่แนบมาหนึ่งไฟล์ในบานหน้าต่างการอ่าน
ถัดไปในริบบิ้น "ไฟล์แนบ" ที่มองเห็นได้คุณสามารถค้นหาและคลิกที่ปุ่ม "บันทึกไฟล์แนบทั้งหมด"
จากนั้นในกล่องโต้ตอบขนาดเล็กของป๊อปอัปให้คลิก“ ตกลง”
ในกล่องโต้ตอบ“ บันทึกไฟล์แนบทั้งหมด” ต่อไปนี้ให้เลือกโฟลเดอร์ปลายทางสำหรับบันทึกแล้วคลิก“ ตกลง”
ในที่สุดคุณก็สามารถเปิดโฟลเดอร์ที่เลือกได้

กด“ Ctrl + A” เพื่อเลือกไฟล์แนบที่บันทึกไว้ทั้งหมด
จากนั้นคลิกขวาที่พวกเขา
ในเมนูคลิกขวาคุณสามารถเลือกตัวเลือก "เปิด"

วิธีการข้างต้นเป็นเพียง applicabในกรณีเช่นนี้ไฟล์แนบทั้งหมดอยู่ในประเภทไฟล์เดียวกัน แต่ถ้าไม่เป็นเช่นนั้นคุณสามารถใช้วิธีการต่อไปนี้

วิธีที่ 2: แบทช์เปิดไฟล์แนบทั้งหมดผ่าน Outlook VBA

วิธีนี้จะทำงานได้อย่างมีประสิทธิภาพหากไฟล์แนบอยู่ในประเภทไฟล์ทั่วไป -“ .docx”,“ .doc”,“ .txt”,“ .xlsx”,“ xls”,“ .jpg”,“ .png”,“ jpeg ”.

ในขั้นแรกให้กดปุ่ม“ Alt + F11”
จากนั้นคุณจะเข้าสู่หน้าต่างแก้ไข VBA
ตอนนี้คุณต้องเปิดโมดูลที่ไม่ได้ใช้งาน
จากนั้นคัดลอกและวางรหัส VBA ต่อไปนี้ลงในนั้น

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

หลังจากนั้นคุณสามารถปิดตัวแก้ไข VBA และเพิ่มมาโครลงในแถบเครื่องมือด่วน
ในที่สุดคุณก็สามารถลองได้

อันดับแรกเลือกอีเมล
จากนั้นคลิกปุ่มมาโครในแถบเครื่องมือด่วน
ทันทีไฟล์แนบทั้งหมดในอีเมลที่เลือกจะถูกเปิดเป็นกลุ่มเช่นภาพหน้าจอต่อไปนี้:

ปกป้องข้อมูล PST ของคุณอย่างมีประสิทธิภาพ

เนื่องจาก Outlook PST มีความเสี่ยงต่อปัจจัยต่างๆคุณควรพยายามอย่างมากเพื่อป้องกันไม่ให้เกิดความเสียหาย มิฉะนั้นเมื่อ PST ของคุณเสียหายไปที่ ซ่อม PST จะเป็นงานที่ยากลำบากมาก Scanpst.exe จะไม่ช่วยในกรณีเช่นนี้ ดังนั้นทางเลือกเดียวของคุณคือการใช้เครื่องมือภายนอกที่มีศักยภาพเช่น DataNumen Outlook Repair.

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ mdf เสียหาย และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.