Paano Mabilis na Kumuha ng Listahan ng Lahat ng Outlook PST Files sa Iyong Lokal na Drive sa pamamagitan ng VBA

Kung umaasa kang makakuha ng listahan ng lahat ng Outlook PST file na nakaimbak sa isang lokal na drive ng iyong PC, maaari mong gamitin ang piraso ng VBA code na ipinapakita sa artikulong ito. Maaari itong magpapahintulot sa iyo na makuha ito sa mabilis na oras.

Marahil ay nakagawa at nag-imbak ka ng maraming Outlook PST file sa isang partition ng iyong computer. Gayunpaman, sa paglipas ng panahon, maaari mong makalimutan ang konkretong lokasyon ng mga PST file na ito. Sa kasong ito, maaaring gusto mong mabilis na malaman ang mga ito at makamit ang isang listahan ng kanilang impormasyon, kabilang ang pangalan, laki at landas. Bilang tugon sa pangangailangang ito, dito namin ipapakilala ang isang mabisang paraan.

Kumuha ng Listahan ng Lahat ng Outlook PST File sa Iyong Lokal na Drive

1. Bilang panimula, ilunsad ang iyong programa sa Outlook.
2. Pagkatapos, i-access ang iyong Outlook VBA editor na may sanggunian sa aking nakaraang artikulo - "Paano Patakbuhin ang VBA Code sa Iyong Outlook".
3. Susunod, kopyahin at i-paste ang sumusunod na VBA code sa “ThisOutlookSession” o isang hindi nagamit na module.

Sub FindAllOutlookPSTFiles()
    Dim objWMIService As Object
    Dim objPSTFiles As Object
    Dim objPSTFile As Object
    Dim i As Long
    Dim objFileSystem As Object
    Dim objFolder As Object
    Dim strTextFile As String
    Dim objTextFile As Object
 
    'Find All PST Files on Drive C
    'You can change "C:" to the other drive letter as per your needs
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set objPSTFiles = objWMIService.ExecQuery ("Select * from CIM_DataFile Where Extension = 'pst' AND Drive = 'C:'")
 
    If objPSTFiles.count > 0 Then
 
       'Create a text file
       Set objFileSystem = CreateObject("Scripting.FileSystemObject")
       strTextFile = "E:\PST_Files_on_Drive_C.txt"
       Set objTextFile = objFileSystem.CreateTextFile(strTextFile, True)
 
       i = 1
 
       For Each objPSTFile In objPSTFiles
           'Input the PST file name, size and path into the text file
           objTextFile.Write (i & ". " & objPSTFile.filename & "." & objPSTFile.Extension & vbCrLf & " Size: " & objPSTFile.FileSize / 1024 & "KB" & vbCrLf & " Path: " & objPSTFile.Drive & objPSTFile.Path & vbCrLf & vbCrLf)
           i = i + 1
       Next
 
       objTextFile.Close
 
       'Open this text file
       Shell "C:\Windows\Notepad.exe " & strTextFile, 1
    Else
       MsgBox "There isn't PST file on this drive!", vbExclamation + vbOKOnly
    End If
End Sub

4. Pagkatapos nito, maaari mong subukan ang macro na ito ngayon. Pindutin lamang ang pindutan ng "F5".
5. Kapag nakumpleto ang macro, makikita mo ang isang text file na nagpapakita, na magiging hitsura ng sumusunod na screenshot:

Gamitin ang Repair Tool sa Kaso ng Outlook Crashes

Ang iba't ibang mga error ay maaaring mangyari sa iyong Outlook paminsan-minsan. Kung hindi mo nalutas ang mga ito sa oras, makakaranas ka ng matinding pag-crash sa Outlook balang araw sa wakas. Kaya, tama na panatilihin ang isang makapangyarihan at may karanasan na PST repair utility sa paligid, tulad ng DataNumen Outlook Repair. Lalo na ito ay dinisenyo upang ayusin ang PST file. Kaya ito ay may kakayahang i-save ka mula sa PST data pagkawala.

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 sql katiwalian at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa