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

Ako se nadate da ćete dobiti listu svih Outlook PST datoteka pohranjenih na lokalnom disku vašeg računara, možete koristiti dio VBA koda prikazanog u ovom članku. Može vam omogućiti da ga dobijete u kratkom vremenu.

Možda ste kreirali i pohranili mnogo Outlook PST datoteka na particiju vašeg računara. Ipak, kako vrijeme prolazi, možda ćete zaboraviti konkretnu lokaciju ovih PST datoteka. U ovom slučaju, možda ćete želeti da ih brzo saznate i dobijete listu njihovih informacija, uključujući ime, veličinu i putanju. Kao odgovor na ovaj zahtjev, ovdje ćemo uvesti efikasan način.

Nabavite listu svih Outlook PST datoteka na vašem lokalnom disku

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

Koristite alat za popravku u slučaju pada programa Outlook

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

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql corruption i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com