Sådan eksporteres du hurtigt størrelsesoplysningerne for alle mapper i en PST-fil til en Excel-fil

Hvis du vil kontrollere størrelsesoplysningerne for hver mappe i en PST-fil, kan du bruge metoden, der er eksponeret i denne artikel. Det eksporterer hurtigt størrelsesoplysningerne for alle mapper i en PST-fil til en Excel-fil.

Når din PST-fil er for stor, kan du kontrollere størrelsen på hver mappe. Det hjælper dig med let at finde ud af, hvilke der er større, og udføre passende arkivering på baggrund af størrelsen. For at kontrollere mappestørrelsen kan du generelt højreklikke på en mappe og derefter vælge “Egenskaber”. I den nye popup-dialogboks kan du klikke på knappen "Mappestørrelse". Men hvis du har oprettet mange mapper, er det betydeligt besværligt at kontrollere størrelsesoplysningerne en efter en manuelt. Så hvis du vil batchvis hente størrelsesoplysningerne for alle mapper i en PST-fil, kan du bruge følgende VBA-kode. Det eksporterer alle mappens navne og størrelsesoplysninger til en Excel-fil på én gang.

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

1. Til at begynde med skal du starte din Outlook-applikation.
2. Skift derefter til fanen "Udvikler", og klik på "Visual Basic" -knappen, eller tryk på "Alt + F11" -tasterne for at få adgang til VBA-editor.
3. Næste i vinduet “Microsoft Visual Basic for Applications” skal du åbne et modul, der ikke er i brug.
4. Kopier og indsæt derefter følgende VBA-koder i dette modul.

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. Derefter skal du indstille dit Outlook-makro-sikkerhedsniveau til lavt.
6. Til sidst kan du prøve.

• Tryk på F5-tasten i det aktuelle makrovindue.
• Derefter bliver du bedt om at vælge en PST-fil som det følgende billede:
• Efter valg af en kildefil begynder Outlook at eksportere størrelsesoplysningerne til Excel.
• Når makroen er færdig, modtager du en besked som skærmbilledet nedenfor.
• Endelig vil du være i stand til at finde Excel-filen i den foruddefinerede lokale mappe. Excel-filen ser ud som følger:

Håndter hyppige PST-fejl

Da Outlook er udsat for fejl, har du nogensinde haft mange problemer i din Outlook. For bedre og mere fleksibelt at håndtere frustrerende PST-problemer anbefales det at opbevare et erfarent og velrenommeret fix-værktøj i nærheden, såsom DataNumen Outlook Repair. Det er i stand til rette PST problemer som en leg.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder SQL Server opsving og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com