Cómo obtener rápidamente una lista de todos los archivos PST de Outlook en su unidad local a través de VBA

Si espera obtener una lista de todos los archivos PST de Outlook almacenados en una unidad local de su PC, puede utilizar el código VBA que se muestra en este artículo. Puede permitirle obtenerlo en un tiempo rápido.

Tal vez haya creado y almacenado muchos archivos PST de Outlook en una partición de su computadora. Sin embargo, con el paso del tiempo, es posible que olvide la ubicación concreta de estos archivos PST. En este caso, es posible que desee encontrarlos rápidamente y obtener una lista de su información, incluido el nombre, el tamaño y la ruta. En respuesta a este requisito, aquí presentaremos una forma efectiva.

Obtenga una lista de todos los archivos PST de Outlook en su unidad local

1. Para empezar, abre tu programa Outlook.
2. Luego, acceda a su editor de Outlook VBA con referencia a mi artículo anterior - "Cómo ejecutar código VBA en su Outlook.
3. A continuación, copie y pegue el siguiente código VBA en "ThisOutlookSession" o en un módulo no utilizado.

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. Después de eso, puede probar esta macro ahora mismo. Simplemente presione el botón "F5".
5. Cuando la macro se complete, verá un archivo de texto que se verá como la siguiente captura de pantalla:

Use la herramienta de reparación en caso de fallas de Outlook

Es posible que se produzcan varios errores en su Outlook de vez en cuando. Si no los resolvió a tiempo, finalmente sufrirá un grave bloqueo de Outlook algún día. Por lo tanto, es correcto mantener cerca una utilidad de reparación de PST potente y experimentada, como DataNumen Outlook Repair. Está especialmente diseñado para reparar PST expediente. Por lo tanto, es capaz de salvarlo de la pérdida de datos PST.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo corrupción sql y productos de software de reparación de Outlook. Para más información visite www.datanumen.com