Kako brzo dobiti popis svih Outlook PST datoteka na vašem lokalnom disku putem VBA

Ako se nadate da ćete dobiti popis svih Outlook PST datoteka pohranjenih na lokalnom pogonu vašeg računala, možete upotrijebiti dio VBA koda prikazan u ovom članku. To vam može omogućiti da ga dobijete u kratkom vremenu.

Možda ste stvorili i pohranili mnogo Outlook PST datoteka na particiju vašeg računala. Ipak, kako vrijeme prolazi, možete zaboraviti konkretnu lokaciju ovih PST datoteka. U ovom slučaju, možda ćete ih htjeti brzo pronaći i napraviti popis njihovih podataka, uključujući ime, veličinu i put. Kao odgovor na ovaj zahtjev, ovdje ćemo predstaviti učinkovit način.

Dobijte popis svih Outlook PST datoteka na svom lokalnom disku

1. Za početak, pokrenite svoj Outlook program.
2. Zatim pristupite svojem Outlook VBA uređivaču pozivajući se na moj prethodni članak – "Kako pokrenuti VBA kod u vašem Outlooku".
3. Zatim kopirajte i zalijepite sljedeći VBA kod u “ThisOutlookSession” ili neiskorišteni 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. Nakon toga, možete isprobati ovaj makro odmah. Samo pritisnite tipku "F5".
5. Kada makronaredba završi, vidjet ćete prikazanu tekstualnu datoteku koja će izgledati kao sljedeća snimka zaslona:

Koristite alat za popravak u slučaju rušenja programa Outlook

S vremena na vrijeme u vašem Outlooku mogu se pojaviti razne pogreške. Ako ih niste riješili na vrijeme, jednog ćete dana konačno doživjeti ozbiljan pad Outlooka. Stoga je ispravno držati moćan i iskusan uslužni program za popravak PST-a u blizini, npr DataNumen Outlook Repair. Posebno je dizajniran za popraviti PST datoteka. Stoga vas može spasiti od gubitka PST podataka.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql korupcija i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com