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

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

ตามค่าเริ่มต้น Outlook ไม่สนับสนุนให้คุณเปิดไฟล์ Outlook PST หลายไฟล์พร้อมกัน ในบทความนี้เราจะสอนวิธีใช้ VBA เพื่อเปิดไฟล์ข้อมูล Outlook หลายไฟล์พร้อมกันใน Outlook ของคุณ

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

เปิดไฟล์ Outlook PST หลายไฟล์พร้อมกัน

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

Sub BatchOpenMultiplePSTFiles()
 
    'You can change the path as per your needs
    'You can also specify a folder other than a drive
    'For instance - Call LoopFolders("C:\Users\Test\My Documents\Outlook Files")
    Call LoopFolders("E:\")
    MsgBox "Open Successfully!", vbExclamation + vbOKOnly, "Open Outlook Data File"

End Sub

Sub LoopFolders(strPath As String)
    Dim objFileSystem As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim objPSTFile As Object
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFileSystem.GetFolder(strPath)
 
    For Each objFile In objFolder.Files
        'Find the pst file by file extension
        strFileExtension = objFileSystem.GetExtensionName(objFile)
        If LCase(strFileExtension) = "pst" Then
           Set objPSTFile = objFile
           'Open the PST file
           Outlook.Application.Session.AddStore (objPSTFile.Path)
        End If
    Next
 
    'Process all folders and subfolders in the Local Drive E
    If objFolder.SubFolders.Count > 0 Then
       For Each objSubFolder In objFolder.SubFolders
           'Skip the system and hidden folders
           If ((objSubFolder.Attributes And 2) = 0) And ((objSubFolder.Attributes And 4) = 0) Then
              LoopFolders (objSubFolder.Path)
           End If
       Next
    End If
End Sub

หลังจากนั้นให้เปลี่ยนระดับความปลอดภัยของแมโคร Outlook เป็นระดับต่ำ
ในที่สุดคุณสามารถคลิกไอคอน "Run" ในแถบเครื่องมือของตัวแก้ไข VBA หรือเพียงแค่กดปุ่ม F5 เพื่อทริกเกอร์โครงการ VBA ใหม่นี้
ในคราวเดียวไฟล์ Outlook PST ทั้งหมดในโฟลเดอร์ภายในที่กำหนดไว้ล่วงหน้าจะถูกเปิดเป็นกลุ่ม

ต่อสู้กับข้อผิดพลาด Vexing PST

เนื่องจาก Outlook มีความอ่อนไหวต่อข้อผิดพลาดและความเสียหายคุณควรใส่ใจกับภัยคุกคามที่อาจเกิดขึ้นทั้งหมดเช่นการติดไวรัสการปิดระบบ Outlook ที่ไม่เหมาะสมรวมถึงการกำหนดค่า Outlook ที่ไม่ถูกต้อง ทั้งหมดนี้สามารถก่อให้เกิด ความเสียหายของ Outlook โดยไม่ต้องเสียเหงื่อ ดังนั้นคุณต้องสำรองไฟล์ PST ของคุณเป็นประจำ มันจะช่วยได้มากในการกู้คืนข้อมูลในภายหลัง

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

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