Så här får du snabbt en lista över alla Outlook PST-filer på din lokala enhet via VBA

Om du hoppas få en lista över alla Outlook PST-filer som är lagrade på en lokal enhet på din dator kan du använda den del av VBA-koden som visas i den här artikeln. Det kan låta dig få det på kort tid.

Du kanske har skapat och lagrat många Outlook PST-filer på en partition på din dator. Men med tiden går du kanske att glömma den konkreta platsen för dessa PST-filer. I det här fallet kanske du snabbt vill ta reda på dem och få en lista över deras information, inklusive namn, storlek och sökväg. Som svar på detta krav kommer vi här att introducera ett effektivt sätt.

Få en lista över alla Outlook PST-filer på din lokala enhet

1. Till att börja med, starta ditt Outlook-program.
2. Gå sedan till din Outlook VBA-redigerare med hänvisning till min tidigare artikel - “Hur du kör VBA-kod i din Outlook".
3. Därefter kopierar och klistrar du in följande VBA-kod i “ThisOutlookSession” eller en oanvänd 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. Därefter kan du prova detta makro just nu. Tryck bara på knappen “F5”.
5. När makrot är klart visas en textfil som ser ut som följande skärmdump:

Använd reparationsverktyget vid Outlook-kraschar

Blandade fel kan uppstå i din Outlook då och då. Om du inte löste dem i tid kommer du att drabbas av en allvarlig Outlook-krasch äntligen en dag. Därför är det rätt att ha ett kraftfullt och erfaret PST-reparationsverktyg i närheten, som DataNumen Outlook Repair. Det är särskilt utformat för att reparera PST fil. Således kan den spara dig från PST-dataförlust.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive sql korruption och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com