Как бързо да получите списък с всички PST файлове на Outlook на вашия локален диск чрез VBA

Ако се надявате да получите списък с всички PST файлове на Outlook, съхранени на локално устройство на вашия компютър, можете да използвате частта от VBA код, показана в тази статия. Може да ви позволи да го получите бързо.

Може би сте създали и съхранили много PST файлове на Outlook в дял на вашия компютър. И все пак с течение на времето може да забравите конкретното местоположение на тези PST файлове. В този случай може да искате бързо да ги откриете и да получите списък с тяхната информация, включително име, размер и път. В отговор на това изискване тук ще представим един ефективен начин.

Вземете списък с всички PST файлове на Outlook на вашия локален диск

1. За начало стартирайте програмата Outlook.
2. След това влезте във вашия редактор на Outlook VBA с препратка към предишната ми статия – „Как да стартирате VBA код във вашия Outlook".
3. След това копирайте и поставете следния VBA код в „ThisOutlookSession“ или неизползван модул.

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. След това можете да опитате този макрос точно сега. Просто натиснете бутона „F5“.
5. Когато макросът завърши, ще видите текстов файл, който ще изглежда като следната екранна снимка:

Използвайте инструмента за поправка в случай на сривове на Outlook

От време на време във вашия Outlook може да възникнат различни грешки. Ако не сте ги разрешили навреме, един ден най-накрая ще претърпите сериозен срив на Outlook. Следователно е правилно да поддържате мощна и опитна помощна програма за ремонт на PST в близост, като например DataNumen Outlook Repair. Той е специално проектиран да ремонт PST файл. По този начин е в състояние да ви спаси от загуба на PST данни.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително sql корупция и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com