Cum să obțineți rapid o listă cu toate fișierele PST Outlook de pe unitatea dvs. locală prin VBA

Dacă sperați să obțineți o listă cu toate fișierele PST Outlook stocate pe o unitate locală a computerului dvs., puteți utiliza fragmentul de cod VBA prezentat în acest articol. Vă poate permite să-l obțineți în timp util.

Poate ați creat și stocat multe fișiere PST Outlook pe o partiție a computerului dvs. Cu toate acestea, odată cu trecerea timpului, este posibil să uitați locația concretă a acestor fișiere PST. În acest caz, poate doriți să le aflați rapid și să obțineți o listă cu informațiile lor, inclusiv numele, dimensiunea și calea. Ca răspuns la această cerință, aici vom introduce o modalitate eficientă.

Obțineți o listă cu toate fișierele PST Outlook de pe unitatea dvs. locală

1. Pentru început, lansați programul Outlook.
2. Apoi, accesați editorul Outlook VBA cu referire la articolul meu anterior – „Cum să rulați codul VBA în Outlook".
3. Apoi, copiați și inserați următorul cod VBA în „ThisOutlookSession” sau într-un modul neutilizat.

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. După aceea, puteți încerca această macrocomandă chiar acum. Doar apăsați butonul „F5”.
5. Când macrocomandă se finalizează, veți vedea afișat un fișier text, care va arăta ca următoarea captură de ecran:

Utilizați Instrumentul de reparare în cazul blocării Outlook

În Outlook pot apărea din când în când erori asortate. Dacă nu le-ați rezolvat la timp, veți suferi într-o zi un accident sever al Outlook. Prin urmare, este corect să păstrați un utilitar de reparare PST puternic și experimentat în apropiere, cum ar fi DataNumen Outlook Repair. Este special conceput pentru repara PST fişier. Astfel, este capabil să vă salveze de la pierderea datelor PST.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv corupție sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com