Cara Batch Membuka Beberapa File PST Outlook Sekaligus di Outlook Anda

Secara default, Outlook tidak mendukung Anda untuk membuka beberapa file PST Outlook secara massal. Pada artikel ini, kami akan mengajari Anda cara menggunakan VBA untuk membuka banyak file data Outlook sekaligus di Outlook Anda.

Saat Anda ingin membuka file PST Outlook tambahan di Outlook Anda, biasanya, Anda memiliki dua cara. Pertama adalah pergi ke kotak dialog "Pengaturan Akun" dan kemudian geser ke tab "File Data" dan selanjutnya klik tombol "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. Keduanya berguna. Namun, kedua cara tersebut hanya memungkinkan Anda untuk membuka satu file PST satu kali. Anda tidak diizinkan untuk membuka beberapa sekaligus. Oleh karena itu, jika Anda ingin membuka lebih dari satu file PST secara massal, Anda harus mencari metode lain. Di sini kami akan mengajari Anda cara menggunakan VBA untuk mencapainya dalam waktu cepat.

Batch Buka Beberapa File PST Outlook Sekaligus

1. Pertama-tama, jalankan program Outlook Anda.
2. Kemudian tekan tombol "Alt + F11" di jendela utama Outlook.
3. Selanjutnya di editor Outlook VBA, Anda harus membuka modul baru.
4. Selanjutnya, salin dan tempel kode 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. Setelah itu, ubah tingkat keamanan makro Outlook Anda ke rendah.
6. Akhirnya, Anda dapat mengklik ikon "Jalankan" di toolbar editor VBA atau cukup tekan tombol F5 untuk memicu proyek VBA baru ini.
7. Sekaligus, semua file Outlook PST di folder lokal yang telah ditentukan sebelumnya akan dibuka secara berkelompok.

Melawan Kesalahan Vexing PST

Karena Outlook rentan terhadap kesalahan dan kerusakan, Anda harus memperhatikan semua potensi ancaman, seperti infeksi virus, penghentian Outlook yang tidak tepat, serta kesalahan konfigurasi Outlook. Semuanya bisa menyebabkan Korupsi Outlook tanpa berkeringat. Oleh karena itu, Anda harus mencadangkan file PST Anda secara teratur. Ini akan banyak membantu dalam pemulihan data nanti.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pemulihan mdf dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com