Kako odjednom otvoriti više Outlook PST datoteka u Outlooku

Outlook podrazumevano ne podržava otvaranje nekoliko Outlook PST datoteka u velikom broju. U ovom članku ćemo vas naučiti kako koristiti VBA za grupno otvaranje više Outlook datoteka s podacima odjednom u vašem Outlooku.

Kada želite da otvorite dodatne Outlook PST datoteke u svom Outlooku, općenito imate dva načina. Jedan je da odete u dijaloški okvir „Postavke računa“, a zatim pređete na karticu „Datoteke podataka“ i zatim kliknete na dugme „Dodaj“ da odaberete Outlook datoteku da biste je otvorili. Drugi je da se uputite na meni „Datoteka“ u prozoru programa Outlook, a zatim kliknite na dugme „Otvori Outlook datoteku podataka“ na kartici „Otvori“ da biste izabrali datoteku. Oba su zgodna. Međutim, oba načina vam omogućavaju da otvorite jednu PST datoteku samo jednom. Nije vam dozvoljeno da otvorite nekoliko odjednom. Stoga, ako želite grupno otvoriti više od jedne PST datoteke, morate tražiti druge metode. Ovdje ćemo vas naučiti da koristite VBA da to postignete u kratkom vremenu.

Grupno otvaranje više Outlook PST datoteka odjednom

1. Prvo, pokrenite Outlook program.
2. Zatim pritisnite tipke “Alt + F11” u glavnom prozoru programa Outlook.
3. Zatim u Outlook VBA editoru, trebali biste otvoriti novi modul.
4. Zatim kopirajte i zalijepite sljedeće VBA kodove u 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. Nakon toga promijenite nivo sigurnosti makroa Outlook na niži.
6. Na kraju, možete kliknuti na ikonu „Pokreni“ na traci sa alatkama VBA editora ili jednostavno pritisnuti taster F5 da pokrenete ovaj novi VBA projekat.
7. Odjednom će se sve Outlook PST datoteke u unaprijed definiranoj lokalnoj mapi otvoriti u grupama.

Borba protiv neugodnih PST grešaka

Budući da je Outlook podložan greškama i oštećenju, trebali biste obratiti pažnju na sve potencijalne prijetnje, kao što su virusne infekcije, nepravilno gašenje Outlooka, kao i pogrešne konfiguracije Outlooka. Svi oni mogu uzrokovati Outlook korupcija bez znojenja. Stoga morate redovno praviti sigurnosnu kopiju svoje PST datoteke. Mnogo će pomoći u kasnijem oporavku podataka.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf recovery i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com