Ako dávkové otváranie viacerých súborov PST programu Outlook naraz v programe Outlook

Aplikácia Outlook predvolene nepodporuje hromadné otváranie niekoľkých súborov Outlook PST. V tomto článku vás naučíme, ako používať VBA na dávkové otvorenie viacerých dátových súborov Outlooku naraz vo vašom Outlooku.

Ak chcete vo svojom Outlooku otvoriť ďalšie súbory Outlook PST, máte zvyčajne dva spôsoby. Jedným z nich je prejsť na dialógové okno „Nastavenia účtu“ a potom prejsť na kartu „Dátové súbory“ a potom kliknutím na tlačidlo „Pridať“ vyberte súbor programu Outlook a otvorte ho. Druhou možnosťou je prejsť do ponuky „Súbor“ v okne programu Outlook a potom kliknúť na tlačidlo „Otvoriť údajový súbor Outlook“ na karte „Otvoriť“ a vybrať súbor. Oba sú šikovní. Oba tieto dva spôsoby vám však umožňujú otvoriť jeden súbor PST iba raz. Nemáte oprávnenie otvárať niekoľko naraz. Preto, ak chcete hromadne otvoriť viac ako jeden súbor PST, musíte vyhľadať iné metódy. Tu vás naučíme používať VBA na jeho dosiahnutie v krátkom čase.

Dávkové otváranie viacerých súborov Outlook PST naraz

1. V prvom rade starváš program Outlook.
2. Potom stlačte klávesy „Alt + F11“ v hlavnom okne programu Outlook.
3. Ďalej v editore Outlook VBA by ste mali otvoriť nový modul.
4. Následne skopírujte a vložte nasledujúce 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. Potom zmeňte úroveň zabezpečenia makra programu Outlook na nízku.
6. Nakoniec môžete kliknúť na ikonu „Spustiť“ na paneli nástrojov editora VBA alebo jednoducho stlačiť kláves F5, čím spustíte tento nový projekt VBA.
7. Naraz sa všetky súbory PST programu Outlook v preddefinovanom miestnom priečinku otvoria hromadne.

Bojujte proti Vexing chybám PST

Pretože program Outlook je náchylný na chyby a poškodenie, mali by ste venovať pozornosť všetkým potenciálnym hrozbám, ako sú vírusové infekcie, nesprávne vypnutie programu Outlook a nesprávne konfigurácie programu Outlook. Všetky môžu spôsobiť Výhľadová korupcia bez toho, aby ste sa zapotili. Preto musíte svoj súbor PST pravidelne zálohovať. Veľmi to pomôže pri neskoršej obnove dát.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane zotavenie mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S