Como obter rapidamente uma lista de todos os arquivos PST do Outlook em sua unidade local via VBA

Se você deseja obter uma lista de todos os arquivos PST do Outlook armazenados em uma unidade local do seu PC, pode utilizar o código VBA mostrado neste artigo. Ele pode permitir que você obtenha em tempo rápido.

Talvez você tenha criado e armazenado muitos arquivos PST do Outlook em uma partição do seu computador. No entanto, com o passar do tempo, você pode esquecer a localização concreta desses arquivos PST. Nesse caso, você pode querer descobri-los rapidamente e obter uma lista de suas informações, incluindo nome, tamanho e caminho. Em resposta a esse requisito, apresentaremos aqui uma maneira eficaz.

Obtenha uma lista de todos os arquivos PST do Outlook em sua unidade local

1. Para começar, abra o programa Outlook.
2. Em seguida, acesse seu editor VBA do Outlook com referência ao meu artigo anterior – “Como executar o código VBA no seu Outlook".
3. Em seguida, copie e cole o seguinte código VBA em “ThisOutlookSession” ou em um módulo não 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. Depois disso, você pode tentar esta macro agora mesmo. Basta pressionar o botão de tecla "F5".
5. Quando a macro for concluída, você verá um arquivo de texto exibido, que se parecerá com a captura de tela a seguir:

Use a ferramenta de reparo em caso de falhas do Outlook

Vários erros podem ocorrer no seu Outlook de tempos em tempos. Se você não os resolver a tempo, sofrerá uma falha grave do Outlook um dia, finalmente. Portanto, é certo manter um utilitário de reparo de PST poderoso e experiente nas proximidades, como DataNumen Outlook Repair. É especialmente concebido para reparar PST arquivo. Assim, é capaz de salvá-lo da perda de dados PST.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo corrupção de sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com