Jak rychle exportovat informace o velikosti všech složek v souboru PST do souboru Excel

Pokud chcete zkontrolovat informace o velikosti každé složky v souboru PST, můžete použít metodu vystavenou v tomto článku. Rychle exportuje informace o velikosti všech složek v souboru PST do souboru Excel.

Pokud je váš soubor PST příliš velký, můžete zkontrolovat velikost každé složky. Pomůže vám snadno zjistit, které jsou větší, a provést vhodnou archivaci na základě velikosti. Obecně platí, že pro kontrolu velikosti složky můžete jednoduše kliknout pravým tlačítkem na složku a poté zvolit „Vlastnosti“. V novém vyskakovacím dialogovém okně můžete kliknout na tlačítko „Velikost složky“. Pokud jste však vytvořili mnoho složek, ruční kontrola informací o velikosti po jednom je značně obtížná. Pokud tedy chcete hromadně získat informace o velikosti všech složek v souboru PST, můžete použít následující kód VBA. Exportuje všechny názvy složek a informace o velikosti do souboru Excel najednou.

Exportujte informace o velikosti všech složek v souboru PST do souboru Excel

1. Nejprve spusťte aplikaci Outlook.
2. Poté přepněte na kartu „Vývojář“ a kliknutím na tlačítko „Visual Basic“ nebo stisknutím kláves „Alt + F11“ otevřete editor VBA.
3. Dále v okně „Microsoft Visual Basic pro aplikace“ otevřete modul, který se nepoužívá.
4. Následně zkopírujte a vložte následující kódy VBA do tohoto modulu.

Dim strExcelFile As String
Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet

Sub ExportFodlerSizetoExcel()
    Dim objSourcePST As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    Set objExcelApp = CreateObject("Excel.Application")
    Set objExcelWorkbook = objExcelApp.Workbooks.Add
    Set objExcelWorksheet = objExcelWorkbook.Sheets("Sheet1")
    objExcelWorksheet.Cells(1, 1) = "Folder"
    objExcelWorksheet.Cells(1, 2) = "Size"
 
    'Select a source PST file
    Set objSourcePST = Outlook.Application.Session.PickFolder

    For Each objFolder In objSourcePST.Folders
        Call ProcessFolders(objFolder)
    Next
 
    'Fit the columns from A to B
    objExcelWorksheet.Columns("A:B").AutoFit
 
    strExcelFile = "E:\Outlook\" & objSourcePST.Name & " Folder Size (" & Format(Now, "yyyy-mm-dd hh-mm-ss") & ").xlsx"
    objExcelWorkbook.Close True, strExcelFile

    MsgBox "Complete!", vbExclamation
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objItem As Object
    Dim lCurrentFolderSize As Long
    Dim nNextEmptyRow As Integer
 
    objCurrentFolder.Items.SetColumns ("Size")
    For Each objItem In objCurrentFolder.Items
        lCurrentFolderSize = lCurrentFolderSize + objItem.Size
    Next
 
    'Convert byte to kilobyte
    'To convert to megabyte, use:
    'lCurrentFolderSize = (lCurrentFolderSize / 1024) / 1024
    lCurrentFolderSize = lCurrentFolderSize / 1024
 
    nNextEmptyRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1

    'Add the values into the columns
    objExcelWorksheet.Range("A" & nNextEmptyRow) = objCurrentFolder.FolderPath
    objExcelWorksheet.Range("B" & nNextEmptyRow) = lCurrentFolderSize & " KB"
 
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

5. Poté byste měli nastavit nízkou úroveň zabezpečení maker aplikace Outlook.
6. Nakonec to můžete vyzkoušet.

• V aktuálním okně makra stiskněte tlačítko F5.
• Poté budete požádáni, abyste vybrali soubor PST, například následující obrázek:
• Po výběru zdrojového souboru začne Outlook exportovat informace o velikosti do aplikace Excel.
• Po dokončení makra obdržíte zprávu jako snímek obrazovky níže.
• Nakonec budete moci najít soubor Excel v předdefinované místní složce. Soubor aplikace Excel bude vypadat takto:

Řešení častých chyb PST

Protože Outlook je náchylný k chybám, může se stát, že jste v Outlooku někdy utrpěli mnoho problémů. Aby bylo možné lépe a pružněji zvládnout frustrující potíže s PST, je vhodné mít v blízkosti zkušený a renomovaný nástroj pro opravu, jako je například DataNumen Outlook Repair. Je schopen opravit PST problémy jako vánek.

Ú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ě SQL Server obnova a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com