Cara Batch Buka Beberapa Fail PST Outlook Sekali Dalam Outlook Anda

Secara lalai, Outlook tidak menyokong anda untuk membuka beberapa fail Outlook PST secara pukal. Dalam artikel ini, kami akan mengajar anda bagaimana menggunakan VBA untuk membuka banyak file data Outlook sekaligus di Outlook anda.

Apabila anda ingin membuka fail PST Outlook tambahan dalam Outlook anda, secara amnya, anda mempunyai dua cara. Salah satunya adalah pergi ke kotak dialog "Tetapan Akaun" dan kemudian beralih ke tab "Fail Data" dan kemudian klik butang "Tambah" untuk memilih file Outlook untuk membukanya. Yang lainnya adalah menuju ke menu "File" di jendela Outlook dan kemudian klik tombol "Buka File Data Outlook" di bawah tab "Buka" untuk memilih file. Kedua-dua mereka berguna. Walau bagaimanapun, kedua-dua cara ini hanya membolehkan anda membuka satu fail PST sekali. Anda tidak dibenarkan membuka beberapa yang sekaligus. Oleh itu, jika anda ingin membuka lebih daripada satu fail PST secara pukal, anda harus mencari kaedah lain. Di sini kami akan mengajar anda untuk menggunakan VBA untuk mencapainya dalam masa yang cepat.

Batch Open Multiple Outlook PST Files sekaligus

1. Pertama sekali, mulakan program Outlook anda.
2. Kemudian tekan butang kekunci "Alt + F11" di tetingkap Outlook utama.
3. Selanjutnya dalam editor Outlook VBA, anda harus membuka modul baru.
4. Selepas itu, salin dan tampal kod VBA berikut ke dalam modul.

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

5. Selepas itu, ubah tahap keselamatan makro Outlook anda menjadi rendah.
6. Akhirnya, anda boleh mengklik ikon "Jalankan" di bar alat editor VBA atau cukup tekan kekunci F5 untuk mencetuskan projek VBA baru ini.
7. Sekaligus, semua fail PST Outlook dalam folder tempatan yang telah ditentukan akan dibuka secara berkelompok.

Lawan Kesalahan Vexing PST

Oleh kerana Outlook rentan terhadap kesalahan dan korupsi, Anda harus memperhatikan semua potensi ancaman, seperti jangkitan virus, penutupan Outlook yang tidak betul dan juga salah konfigurasi Outlook. Kesemuanya boleh menyebabkan Rasuah Outlook tanpa berpeluh. Oleh itu, anda harus membuat sandaran fail PST anda secara berkala. Ini akan banyak membantu dalam pemulihan data kemudian.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pemulihan mdf dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com