Come ottenere rapidamente un elenco di tutti i file PST di Outlook sull'unità locale tramite VBA

Se speri di ottenere un elenco di tutti i file PST di Outlook archiviati su un'unità locale del tuo PC, puoi utilizzare il pezzo di codice VBA mostrato in questo articolo. Può permetterti di ottenerlo in tempi rapidi.

Forse hai creato e archiviato molti file PST di Outlook su una partizione del tuo computer. Tuttavia, con il passare del tempo, potresti dimenticare la posizione concreta di questi file PST. In questo caso, potresti volerli scoprire rapidamente e ottenere un elenco delle loro informazioni, inclusi nome, dimensione e percorso. In risposta a questa esigenza, qui introdurremo un modo efficace.

Ottieni un elenco di tutti i file PST di Outlook sul tuo disco locale

1. Innanzitutto, avvia il programma Outlook.
2. Quindi, accedi al tuo editor VBA di Outlook con riferimento al mio precedente articolo - "Come eseguire il codice VBA in Outlook".
3. Successivamente, copia e incolla il seguente codice VBA in "ThisOutlookSession" o in un modulo inutilizzato.

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. Successivamente, puoi provare questa macro in questo momento. Basta premere il tasto "F5".
5. Al termine della macro, verrà visualizzato un file di testo, che avrà l'aspetto del seguente screenshot:

Utilizzare lo strumento di riparazione in caso di arresti anomali di Outlook

Di tanto in tanto possono verificarsi errori assortiti in Outlook. Se non li hai risolti in tempo, un giorno alla fine subirai un grave arresto anomalo di Outlook. Quindi, è giusto mantenere un'utilità di riparazione PST potente ed esperta nelle vicinanze, come DataNumen Outlook Repair. È appositamente progettato per riparare PST file. Quindi è in grado di salvarti dalla perdita di dati PST.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui corruzione sql e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com