Kako grupno otvoriti više Outlook PST datoteka odjednom u vašem Outlooku

Outlook prema zadanim postavkama ne podržava skupno otvaranje nekoliko Outlook PST datoteka. U ovom ćemo vas članku naučiti kako koristiti VBA za grupno otvaranje više Outlookovih podatkovnih datoteka odjednom u vašem Outlooku.

Kada želite otvoriti dodatne Outlook PST datoteke u Outlooku, općenito imate dva načina. Jedan je da odete u dijaloški okvir "Postavke računa", a zatim prijeđete na karticu "Datoteke s podacima", a zatim kliknete gumb "Dodaj" kako biste odabrali Outlook datoteku za otvaranje. Drugi je da se uputite na izbornik "Datoteka" u prozoru programa Outlook, a zatim kliknete gumb "Otvori datoteku s podacima programa Outlook" pod karticom "Otvori" za odabir datoteke. Oba su zgodna. Međutim, oba ova dva načina omogućuju vam samo jednom otvaranje jedne PST datoteke. Nije vam dopušteno otvoriti nekoliko odjednom. Stoga, ako želite skupno otvoriti više od jedne PST datoteke, morate potražiti druge metode. Ovdje ćemo vas naučiti kako koristiti VBA kako biste to postigli u kratkom roku.

Skupno otvaranje više Outlook PST datoteka odjednom

1. Prvo pokrenite Outlook.
2. Zatim pritisnite tipke "Alt + F11" u glavnom prozoru programa Outlook.
3. Zatim u uređivaču Outlook VBA trebali biste otvoriti novi modul.
4. Nakon toga 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 razinu sigurnosti Outlook makroa na nisku.
6. Na kraju, možete kliknuti ikonu "Pokreni" na alatnoj traci VBA uređivača ili jednostavno pritisnuti tipku F5 za pokretanje ovog novog VBA projekta.
7. Odjednom će se sve Outlook PST datoteke u unaprijed definiranoj lokalnoj mapi otvoriti u serijama.

Borite se protiv dosadnih PST pogrešaka

Budući da je Outlook podložan pogreškama i oštećenjima, trebali biste obratiti pozornost 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 a da se nije oznojio. Stoga morate redovito sigurnosno kopirati svoju PST datoteku. To će puno pomoći u kasnijem oporavku podataka.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf oporavak i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com