Slik eksporterer du raskt størrelsesinformasjonen til alle mapper i en PST-fil til en Excel-fil

Hvis du vil sjekke størrelsesinformasjonen til hver mappe i en PST-fil, kan du bruke metoden som er eksponert i denne artikkelen. Det vil raskt eksportere størrelsesinformasjonen til alle mappene i en PST-fil til en Excel-fil.

Når PST-filen din er for stor, kan det være lurt å sjekke størrelsen på hver mappe. Det hjelper deg enkelt å finne ut hvilke som er de største og gjøre passende arkivering på grunnlag av størrelsen. Generelt, for å sjekke mappestørrelsen, kan du ganske enkelt høyreklikke på en mappe og deretter velge "Egenskaper". I den nye popup-dialogboksen kan du klikke på "Mappestørrelse"-knappen. Men hvis du har opprettet mange mapper, er det betydelig vanskelig å kontrollere størrelsesinformasjonen én etter én manuelt. Så hvis du ønsker å batch få størrelsesinformasjonen til alle mappene i en PST-fil, kan du bruke følgende VBA-kode. Den eksporterer alle mappenavn og størrelsesinformasjon til en Excel-fil på én gang.

Eksporter størrelsesinformasjonen for alle mapper i en PST-fil til en Excel-fil

1. For å begynne, start Outlook-applikasjonen din.
2. Bytt deretter til «Utvikler»-fanen og klikk på «Visual Basic»-knappen eller trykk på «Alt + F11»-tastene for å få tilgang til VBA-redigering.
3. I "Microsoft Visual Basic for Applications"-vinduet åpner du en modul som ikke er i bruk.
4. Deretter kopierer og limer du inn følgende VBA-koder i denne modulen.

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. Etter det bør du sette Outlook-makrosikkerhetsnivået til lavt.
6. Til slutt kan du prøve.

• Trykk på F5-tasten i gjeldende makrovindu.
• Deretter vil du bli bedt om å velge en PST-fil, som følgende bilde:
• Etter å ha valgt en kildefil, vil Outlook begynne å eksportere størrelsesinformasjonen til Excel.
• Etter at makroen er ferdig, mottar du en melding som skjermbildet nedenfor.
• Til slutt vil du kunne finne Excel-filen i den forhåndsdefinerte lokale mappen. Excel-filen vil se slik ut:

Håndter hyppige PST-feil

Siden Outlook er utsatt for feil, kan det hende du noen gang har hatt mange problemer i Outlook. For å bedre og mer fleksibelt takle frustrerende PST-problemer, er det lurt å ha et erfarent og anerkjent fikseringsverktøy i nærheten, som f.eks. DataNumen Outlook Repair. Det er i stand til fikse PST problemer som en lek.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert SQL Server utvinning og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med