Kuidas oma Outlookis korraga mitu Outlooki PST-faili pakkides avada

Vaikimisi ei toeta Outlook mitme Outlooki PST-faili hulgi avamist. Selles artiklis õpetame teile, kuidas kasutada VBA-d mitme Outlooki andmefaili korraga avamiseks Outlookis.

Kui soovite Outlookis täiendavaid Outlooki PST-faile avada, on teil üldiselt kaks võimalust. Üks on minna dialoogiboksi "Konto sätted" ja seejärel liikuda vahekaardile "Andmefailid" ja seejärel klõpsata nuppu "Lisa", et valida selle avamiseks Outlooki fail. Teine võimalus on minna Outlooki akna menüüsse Fail ja seejärel faili valimiseks klõpsata vahekaardil "Ava" nuppu "Ava Outlooki andmefail". Mõlemad on käepärased. Mõlemad kaks võimalust võimaldavad teil aga ühe PST-faili avada ainult üks kord. Teil ei ole lubatud korraga mitut avada. Seega, kui soovite hulgi avada rohkem kui ühte PST-faili, peate otsima muid meetodeid. Siin õpetame teid kasutama VBA-d selle kiireks saavutamiseks.

Avage korraga mitu Outlooki PST-faili korraga

1. Esiteks käivitage oma Outlooki programm.
2. Seejärel vajutage Outlooki peaaknas klahve Alt + F11.
3. Järgmisena peaksite Outlooki VBA redaktoris avama uue mooduli.
4. Seejärel kopeerige ja kleepige moodulisse järgmised VBA koodid.

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. Pärast seda muutke oma Outlooki makro turvatase madalaks.
6. Lõpuks saate selle uue VBA projekti käivitamiseks klõpsata ikooni "Käivita" VBA redaktori tööriistaribal või lihtsalt vajutada klahvi F5.
7. Korraga avatakse kõik eelnevalt määratud kohalikus kaustas olevad Outlooki PST-failid partiidena.

Võitlus ärevate PST-vigade vastu

Kuna Outlook on vastuvõtlik vigadele ja korruptsioonile, peaksite pöörama tähelepanu kõikidele võimalikele ohtudele, nagu viirusnakkused, Outlooki vale väljalülitamine ja Outlooki väärkonfiguratsioonid. Kõik need võivad põhjustada Outlooki korruptsioon ilma higistamata. Seetõttu peate oma PST-faili regulaarselt varundama. Sellest on hilisemal andmete taastamisel palju abi.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas mdf taastamine ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom