Cum să deschideți în lot mai multe fișiere PST Outlook simultan în Outlook

În mod implicit, Outlook nu vă acceptă să deschideți mai multe fișiere PST Outlook în vrac. În acest articol, vă vom învăța cum să utilizați VBA pentru a deschide mai multe fișiere de date Outlook simultan în Outlook.

Când doriți să deschideți fișiere PST Outlook suplimentare în Outlook, în general, aveți două mijloace. Una este să accesați caseta de dialog „Setări cont”, apoi să treceți la fila „Fișiere de date” și apoi să faceți clic pe butonul „Adăugați” pentru a selecta fișierul Outlook pentru a-l deschide. Celălalt este să mergeți la meniul „Fișier” din fereastra Outlook și apoi să faceți clic pe butonul „Deschideți fișierul de date Outlook” din fila „Deschidere” pentru a selecta fișierul. Ambele sunt la îndemână. Cu toate acestea, ambele moduri vă permit să deschideți un singur fișier PST o singură dată. Nu aveți voie să deschideți mai multe dintr-o singură mișcare. Prin urmare, dacă doriți să deschideți în bloc mai multe fișiere PST, trebuie să căutați alte metode. Aici vă vom învăța să utilizați VBA pentru a-l realiza în timp util.

Deschideți mai multe fișiere PST Outlook simultan

1. În primul rând, porniți programul Outlook.
2. Apoi apăsați butoanele tastei „Alt + F11” în fereastra principală a Outlook.
3. Apoi, în editorul Outlook VBA, ar trebui să deschideți un nou modul.
4. Ulterior, copiați și inserați următoarele coduri VBA în 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. După aceea, schimbați nivelul de securitate al macrocomenzii Outlook la scăzut.
6. În cele din urmă, puteți face clic pe pictograma „Run” din bara de instrumente a editorului VBA sau puteți apăsa pur și simplu tasta F5 pentru a declanșa acest nou proiect VBA.
7. Deodată, toate fișierele PST Outlook din folderul local predefinit vor fi deschise în loturi.

Luptă împotriva erorilor PST vexing

Deoarece Outlook este susceptibil la erori și corupție, ar trebui să acordați atenție tuturor amenințărilor potențiale, cum ar fi infecțiile cu virusuri, închiderea necorespunzătoare a Outlook, precum și configurările greșite ale Outlook. Toate pot cauza corupție Outlook fără a transpira. Prin urmare, trebuie să faceți o copie de rezervă a fișierului PST în mod regulat. Va ajuta foarte mult la recuperarea ulterioară a datelor.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recuperare mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com