Paano Mag-batch Magbukas ng Maramihang Outlook PST File nang sabay-sabay sa Iyong Outlook

Bilang default, hindi ka sinusuportahan ng Outlook na magbukas ng ilang Outlook PST file nang maramihan. Sa artikulong ito, ituturo namin sa iyo kung paano gamitin ang VBA para mag-batch ng maraming file ng data ng Outlook nang sabay-sabay sa iyong Outlook.

Kapag gusto mong magbukas ng mga karagdagang Outlook PST file sa iyong Outlook, sa pangkalahatan, mayroon kang dalawang paraan. Ang isa ay pumunta sa dialog box na "Mga Setting ng Account" at pagkatapos ay lumipat sa tab na "Mga File ng Data" at susunod na i-click ang pindutang "Idagdag" upang piliin ang Outlook file upang buksan ito. Ang isa pa ay pumunta sa menu na "File" sa window ng Outlook at pagkatapos ay i-click ang "Buksan ang File ng Data ng Outlook" sa ilalim ng tab na "Buksan" upang pumili ng file. Pareho silang madaling gamitin. Gayunpaman, pinapayagan ka lamang ng dalawang paraan na magbukas ng isang PST file nang isang beses. Hindi ka pinapayagang magbukas ng ilan sa isang pagkakataon. Samakatuwid, kung gusto mong buksan nang maramihan ang higit sa isang PST file, kailangan mong maghanap ng iba pang mga pamamaraan. Dito, tuturuan ka naming gumamit ng VBA para makamit ito sa mabilis na panahon.

Batch Buksan ang Maramihang Outlook PST File nang sabay-sabay

1. Una sa lahat, simulan ang iyong programa sa Outlook.
2. Pagkatapos ay pindutin ang "Alt + F11" na mga pindutan ng key sa pangunahing window ng Outlook.
3. Susunod sa Outlook VBA editor, dapat kang magbukas ng bagong module.
4. Kasunod, kopyahin at i-paste ang mga sumusunod na VBA code sa modyul.

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. Pagkatapos nito, baguhin ang antas ng iyong seguridad sa Outlook sa mababang.
6. Sa kalaunan, maaari mong i-click ang icon na "Run" sa toolbar ng VBA editor o pindutin lamang ang F5 key upang ma-trigger ang bagong VBA project na ito.
7. Sabay-sabay, ang lahat ng Outlook PST file sa paunang-natukoy na lokal na folder ay bubuksan sa mga batch.

Labanan ang Nakakainis na PST Error

Dahil ang Outlook ay madaling kapitan ng mga error at katiwalian, dapat mong bigyang pansin ang lahat ng mga potensyal na banta, tulad ng mga impeksyon sa virus, hindi wastong pagsasara ng Outlook pati na rin ang mga maling pagsasaayos ng Outlook. Lahat ng mga ito ay maaaring maging sanhi Korapsyon sa Outlook nang hindi pinagpapawisan. Samakatuwid, kailangan mong i-back up ang iyong PST file sa isang regular na batayan. Malaki ang maitutulong nito sa pagbawi ng data mamaya.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang mdf paggaling at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa