Cách mở hàng loạt tệp Outlook PST cùng một lúc trong Outlook của bạn

giải pháp triển vọng Tháng Chín 29, 2025

Theo mặc định, Outlook không hỗ trợ bạn mở hàng loạt tệp Outlook PST. Trong bài viết này, chúng tôi sẽ hướng dẫn bạn cách sử dụng VBA để mở nhiều tệp dữ liệu Outlook cùng một lúc trong Outlook của bạn.

Nói chung, khi bạn muốn mở các tệp Outlook PST bổ sung trong Outlook của mình, bạn có hai cách. Một là vào hộp thoại “Cài đặt tài khoản”, sau đó chuyển sang tab “Tệp dữ liệu” và tiếp theo nhấp vào nút “Thêm” để chọn tệp Outlook để mở. Một cách khác là đi tới menu “Tệp” trong cửa sổ Outlook, sau đó nhấp vào nút “Mở tệp dữ liệu Outlook” trong tab “Mở” để chọn tệp. Cả hai đều tiện dụng. Tuy nhiên, cả hai cách chỉ cho phép bạn mở một tệp PST một lần. Bạn không được phép mở nhiều cái trong một lần. Do đó, nếu bạn muốn mở hàng loạt nhiều tệp PST, bạn phải tìm kiếm các phương pháp khác. Ở đây chúng tôi sẽ hướng dẫn bạn sử dụng VBA để đạt được điều đó trong thời gian nhanh chóng.

Mở hàng loạt nhiều tệp Outlook PST cùng một lúc

Trước tiên, hãy mở chương trình Outlook của bạn.
Sau đó nhấn các nút phím “Alt + F11” trong cửa sổ chính của Outlook.
Tiếp theo trong trình soạn thảo Outlook VBA, bạn nên mở một mô-đun mới.
Sau đó, sao chép và dán các mã VBA sau vào mô-đun.

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

Sau đó, thay đổi cấp độ bảo mật macro Outlook của bạn thành thấp.
Cuối cùng, bạn có thể nhấp vào biểu tượng “Run” trên thanh công cụ của trình soạn thảo VBA hoặc chỉ cần nhấn phím F5 để kích hoạt dự án VBA mới này.
Đồng thời, tất cả các tệp Outlook PST trong thư mục cục bộ được xác định trước sẽ được mở theo đợt.

Chiến đấu chống lại các lỗi PST khó chịu

Vì Outlook dễ bị lỗi và bị hỏng, bạn nên chú ý đến tất cả các mối đe dọa tiềm ẩn, chẳng hạn như nhiễm vi-rút, tắt Outlook không đúng cách cũng như cấu hình sai của Outlook. Tất cả chúng đều có thể gây ra Tham nhũng mà không đổ mồ hôi. Do đó, bạn phải thường xuyên sao lưu tệp PST của mình. Nó sẽ giúp ích rất nhiều cho việc phục hồi dữ liệu sau này.

Giới thiệu tác giả:

Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm phục hồi mdf và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm