Kā vienlaikus paketē atvērt vairākus Outlook PST failus

Pēc noklusējuma programma Outlook neatbalsta vairāku Outlook PST failu lielapjoma atvēršanu. Šajā rakstā mēs iemācīsim, kā izmantot VBA, lai programmā Outlook vienlaikus atvērtu vairākus Outlook datu failus.

Ja vēlaties programmā Outlook atvērt papildu Outlook PST failus, parasti ir divi veidi. Viens no tiem ir doties uz dialoglodziņu "Konta iestatījumi" un pēc tam pāriet uz cilni "Datu faili" un pēc tam noklikšķiniet uz pogas "Pievienot", lai atlasītu Outlook failu, lai to atvērtu. Otrs ir pāriet uz izvēlni "Fails" Outlook logā un pēc tam noklikšķiniet uz pogas "Atvērt Outlook datu failu" cilnē "Atvērt", lai atlasītu failu. Abi ir ērti. Tomēr abi abi veidi ļauj atvērt vienu PST failu tikai vienu reizi. Jums nav atļauts vienā reizē atvērt vairākus. Tāpēc, ja vēlaties lielapjoma atvērt vairāk nekā vienu PST failu, jums ir jāmeklē citas metodes. Šeit mēs iemācīsim jums izmantot VBA, lai to ātri sasniegtu.

Atveriet vairākus Outlook PST failus vienlaikus

1. Pirmkārt, start savu Outlook programmu.
2. Pēc tam Outlook galvenajā logā nospiediet taustiņu “Alt + F11” taustiņus.
3. Pēc tam Outlook VBA redaktorā jums vajadzētu atvērt jaunu moduli.
4. Pēc tam kopējiet un ielīmējiet modulī šādus VBA kodus.

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ēc tam mainiet Outlook makro drošības līmeni uz zemu.
6. Galu galā varat noklikšķināt uz ikonas “Palaist” VBA redaktora rīkjoslā vai vienkārši nospiest taustiņu F5, lai aktivizētu šo jauno VBA projektu.
7. Uzreiz visi Outlook PST faili iepriekš definētajā lokālajā mapē tiks atvērti pakešām.

Cīņa pret satraucošām PST kļūdām

Tā kā programma Outlook ir uzņēmīga pret kļūdām un bojājumiem, jums jāpievērš uzmanība visiem iespējamiem draudiem, piemēram, vīrusu infekcijām, nepareizai Outlook izslēgšanai, kā arī nepareizai Outlook konfigurācijai. Visi no tiem var izraisīt Outlook korupcija neizlaižot sviedrus. Tāpēc jums regulāri jāveido PST faila dublējums. Tas ļoti palīdzēs vēlākā datu atkopšanā.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp mdf atkopšana un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar