Kako hitro pridobiti seznam vseh datotek Outlook PST na vašem lokalnem disku prek VBA

Če upate, da boste dobili seznam vseh datotek Outlook PST, shranjenih na lokalnem disku vašega računalnika, lahko uporabite del kode VBA, prikazan v tem članku. Lahko vam omogoči, da ga dobite v kratkem času.

Morda ste ustvarili in shranili veliko datotek Outlook PST na particijo vašega računalnika. Vendar pa boste sčasoma morda pozabili na konkretno lokacijo teh datotek PST. V tem primeru jih boste morda želeli hitro najti in doseči seznam njihovih informacij, vključno z imenom, velikostjo in potjo. Kot odgovor na to zahtevo bomo tukaj predstavili učinkovit način.

Pridobite seznam vseh Outlookovih datotek PST na vašem lokalnem disku

1. Za začetek zaženite program Outlook.
2. Nato odprite urejevalnik Outlook VBA s sklicevanjem na moj prejšnji članek – "Kako zagnati kodo VBA v Outlooku".
3. Nato kopirajte in prilepite naslednjo kodo VBA v »ThisOutlookSession« ali neuporabljen modul.

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. Po tem lahko ta makro preizkusite takoj. Samo pritisnite tipko "F5".
5. Ko se makro zaključi, se prikaže besedilna datoteka, ki bo videti kot ta posnetek zaslona:

Uporabite orodje za popravilo v primeru zrušitev Outlooka

V vašem Outlooku se lahko občasno pojavijo različne napake. Če jih niste rešili pravočasno, boste nekega dne končno utrpeli hudo zrušitev Outlooka. Zato je prav, da imate v bližini močan in izkušen pripomoček za popravilo PST, npr DataNumen Outlook Repair. Zasnovan je posebej za popravilo PST mapa. Tako vas lahko reši pred izgubo podatkov PST.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z sql korupcije in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com