Si të hapni skedarë të shumëfishtë PST të Outlook menjëherë në Outlook tuaj

Si parazgjedhje, Outlook nuk ju mbështet për të hapur disa skedarë PST të Outlook në masë. Në këtë artikull, ne do t'ju mësojmë se si të përdorni VBA për të hapur disa skedarë të të dhënave të Outlook menjëherë në Outlook tuaj.

Kur dëshironi të hapni skedarë shtesë të Outlook PST në Outlook tuaj, në përgjithësi, keni dy mënyra. Njëra është të shkoni te kutia e dialogut "Cilësimet e llogarisë" dhe më pas të kaloni te skeda "Skedarët e të dhënave" dhe më pas të klikoni butonin "Shto" për të zgjedhur skedarin Outlook për ta hapur. Tjetra është të shkoni te menyja "File" në dritaren e Outlook dhe më pas kliko butonin "Open Outlook Data File" nën skedën "Open" për të zgjedhur skedarin. Të dy janë të dobishëm. Sidoqoftë, të dy mënyrat ju lejojnë të hapni një skedar të vetëm PST vetëm një herë. Nuk ju lejohet të hapni disa në të njëjtën kohë. Prandaj, nëse dëshironi të hapni në masë më shumë se një skedar PST, duhet të kërkoni metoda të tjera. Këtu do t'ju mësojmë të përdorni VBA për ta arritur atë në kohë të shpejtë.

Hapni skedarë të shumtë PST të Outlook në të njëjtën kohë

1. Në radhë të parë, nisni programin tuaj Outlook.
2. Pastaj shtypni butonat "Alt + F11" në dritaren kryesore të Outlook.
3. Më pas në redaktorin VBA të Outlook, duhet të hapni një modul të ri.
4. Më pas, kopjoni dhe ngjisni kodet e mëposhtme VBA në 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. Pas kësaj, ndryshoni nivelin e sigurisë makro të Outlook në të ulët.
6. Përfundimisht, mund të klikoni ikonën "Run" në shiritin e veglave të redaktuesit VBA ose thjesht shtypni tastin F5 për të aktivizuar këtë projekt të ri VBA.
7. Menjëherë, të gjithë skedarët e Outlook PST në dosjen lokale të paracaktuar do të hapen në grupe.

Lufta kundër gabimeve të pakëndshme PST

Meqenëse Outlook është i ndjeshëm ndaj gabimeve dhe korrupsionit, duhet t'i kushtoni vëmendje të gjitha kërcënimeve të mundshme, të tilla si infeksionet me viruse, mbyllja e gabuar e Outlook si dhe konfigurimet e gabuara të Outlook. Të gjitha ato mund të shkaktojnë Perspektiva e korrupsionit pa u djersitur. Prandaj, duhet të kopjoni skedarin tuaj PST rregullisht. Do të ndihmojë shumë në rikuperimin e mëvonshëm të të dhënave.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rikuperimi mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com