Hoe u via VBA snel een lijst kunt krijgen van alle Outlook PST-bestanden op uw lokale schijf

Als u een lijst wilt krijgen van alle Outlook PST-bestanden die op een lokaal station van uw pc zijn opgeslagen, kunt u het stukje VBA-code gebruiken dat in dit artikel wordt weergegeven. Hiermee kunt u het snel verkrijgen.

Misschien hebt u veel Outlook PST-bestanden gemaakt en opgeslagen op een partitie van uw computer. Maar na verloop van tijd vergeet u misschien de concrete locatie van deze PST-bestanden. In dit geval wilt u ze misschien snel achterhalen en een lijst met hun informatie verkrijgen, inclusief naam, grootte en pad. Als antwoord op deze eis zullen we hier een effectieve manier introduceren.

Ontvang een lijst met alle Outlook PST-bestanden op uw lokale schijf

1. Start om te beginnen uw Outlook-programma.
2. Ga vervolgens naar uw Outlook VBA-editor met verwijzing naar mijn vorige artikel – “Hoe u VBA-code in uw Outlook uitvoert'.
3. Kopieer en plak vervolgens de volgende VBA-code in “ThisOutlookSession” of een ongebruikte module.

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. Daarna kunt u deze macro nu meteen proberen. Druk gewoon op de “F5”-toets.
5. Wanneer de macro is voltooid, ziet u een tekstbestand verschijnen dat eruitziet als de volgende schermafbeelding:

Gebruik Repair Tool in geval van Outlook-crashes

Er kunnen van tijd tot tijd verschillende fouten in uw Outlook optreden. Als u ze niet op tijd hebt opgelost, zult u op een dag eindelijk een ernstige Outlook-crash krijgen. Daarom is het goed om een ​​krachtig en ervaren PST-reparatieprogramma in de buurt te hebben, bijvoorbeeld DataNumen Outlook Repair. Het is speciaal ontworpen om reparatie PST bestand. Het kan u dus redden van PST-gegevensverlies.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder sql corruptie en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com