Jak dávkové otevření více souborů PST aplikace Outlook najednou v aplikaci Outlook

Ve výchozím nastavení aplikace Outlook nepodporuje hromadné otevírání několika souborů PST aplikace Outlook. V tomto článku vás naučíme, jak používat VBA k dávkovému otevření více datových souborů Outlooku najednou v Outlooku.

Chcete-li ve svém Outlooku otevřít další soubory PST aplikace Outlook, máte obecně dva způsoby. Jedním z nich je přejít na dialogové okno „Nastavení účtu“ a poté přejít na kartu „Datové soubory“ a poté kliknutím na tlačítko „Přidat“ vyberte soubor aplikace Outlook a otevřete jej. Druhou možností je přejít do nabídky „Soubor“ v okně aplikace Outlook a poté klepnutím na tlačítko „Otevřít datový soubor aplikace Outlook“ na kartě „Otevřít“ a vybrat soubor. Oba jsou šikovní. Oba dva způsoby vám však umožňují otevřít jeden soubor PST pouze jednou. Není dovoleno otevřít několik najednou. Pokud tedy chcete hromadně otevřít více než jeden soubor PST, musíte hledat jiné metody. Zde vás naučíme používat VBA, abyste toho dosáhli v rychlém čase.

Dávkové otevírání více souborů Outlook PST najednou

1. Nejprve spusťte program Outlook.
2. Poté stiskněte „Alt + F11“ v hlavním okně aplikace Outlook.
3. Dále v editoru Outlook VBA byste měli otevřít nový modul.
4. Následně zkopírujte a vložte následující kódy VBA do modulu.

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. Poté změňte úroveň zabezpečení maker aplikace Outlook na nízkou.
6. Nakonec můžete kliknout na ikonu „Spustit“ na panelu nástrojů editoru VBA nebo jednoduše stisknout klávesu F5 a spustit tento nový projekt VBA.
7. Najednou budou všechny soubory PST aplikace Outlook v předdefinované místní složce otevřeny v dávkách.

Bojujte proti chybám PST Vexing

Vzhledem k tomu, že Outlook je citlivý na chyby a poškození, měli byste věnovat pozornost všem potenciálním hrozbám, jako jsou virové infekce, nesprávné vypnutí aplikace Outlook a nesprávná konfigurace aplikace Outlook. Všechny mohou způsobit Outlook korupce aniž byste se zapotili. Proto musíte soubor PST pravidelně zálohovat. Hodně to pomůže při pozdější obnově dat.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně zotavení mdf a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com