Jak rychle získat seznam všech souborů Outlook PST na vašem místním disku pomocí VBA

Pokud doufáte, že získáte seznam všech souborů Outlook PST uložených na místní jednotce vašeho počítače, můžete využít část kódu VBA zobrazenou v tomto článku. Umožní vám to získat v rychlém čase.

Možná jste vytvořili a uložili mnoho souborů Outlook PST do oddílu vašeho počítače. V průběhu času však můžete zapomenout na konkrétní umístění těchto souborů PST. V takovém případě je možná budete chtít rychle zjistit a získat seznam jejich informací, včetně názvu, velikosti a cesty. V reakci na tento požadavek zde představíme efektivní způsob.

Získejte seznam všech souborů PST aplikace Outlook na místním disku

1. Pro začátek spusťte program Outlook.
2. Poté přejděte do svého editoru Outlook VBA s odkazem na můj předchozí článek - „Jak spustit kód VBA ve vašem Outlooku".
3. Dále zkopírujte a vložte následující kód VBA do „ThisOutlookSession“ nebo nepoužívaného modulu.

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. Poté můžete toto makro vyzkoušet hned teď. Stačí stisknout tlačítko „F5“.
5. Po dokončení makra se zobrazí textový soubor, který bude vypadat jako následující snímek obrazovky:

V případě selhání aplikace Outlook použijte nástroj pro opravu

Ve vašem Outlooku se mohou čas od času objevit různé chyby. Pokud jste je nevyřešili včas, nakonec jednoho dne utrpíte vážné selhání aplikace Outlook. Proto je správné udržovat v blízkosti výkonný a zkušený nástroj pro opravu PST DataNumen Outlook Repair. Je speciálně navržen pro opravit PST soubor. Je tedy schopen vás zachránit před ztrátou dat PST.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně korupce sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com