Jak szybko uzyskać listę wszystkich plików PST programu Outlook na dysku lokalnym za pośrednictwem VBA

Jeśli chcesz uzyskać listę wszystkich plików PST programu Outlook przechowywanych na dysku lokalnym komputera, możesz wykorzystać fragment kodu VBA pokazany w tym artykule. Może to pozwolić ci to w krótkim czasie.

Być może utworzyłeś i zapisałeś wiele plików PST programu Outlook na partycji komputera. Jednak z biegiem czasu możesz zapomnieć o konkretnej lokalizacji tych plików PST. W takim przypadku możesz szybko ich znaleźć i uzyskać listę ich informacji, w tym nazwę, rozmiar i ścieżkę. W odpowiedzi na to wymaganie przedstawimy tutaj skuteczny sposób.

Pobierz listę wszystkich plików PST programu Outlook na dysku lokalnym

1. Na początek uruchom program Outlook.
2. Następnie uzyskaj dostęp do edytora Outlook VBA, odwołując się do mojego poprzedniego artykułu - „Jak uruchomić kod VBA w swoim Outlooku".
3. Następnie skopiuj i wklej następujący kod VBA do „ThisOutlookSession” lub nieużywanego modułu.

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. Następnie możesz teraz wypróbować to makro. Wystarczy nacisnąć klawisz „F5”.
5. Po zakończeniu działania makra zobaczysz plik tekstowy, który będzie wyglądał jak na poniższym zrzucie ekranu:

Użyj narzędzia do naprawy w przypadku awarii programu Outlook

Od czasu do czasu w programie Outlook mogą pojawiać się różne błędy. Jeśli nie rozwiążesz ich na czas, pewnego dnia w końcu doświadczysz poważnej awarii programu Outlook. Dlatego dobrze jest mieć w pobliżu potężne i doświadczone narzędzie do naprawy PST, takie jak DataNumen Outlook Repair. Jest specjalnie zaprojektowany do naprawa PST plik. Dzięki temu jest w stanie uchronić Cię przed utratą danych PST.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym sql korupcja i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com