Wenn Sie die Größeninformationen der einzelnen Ordner in einer PST-Datei überprüfen möchten, können Sie die in diesem Artikel beschriebene Methode verwenden. Die Größeninformationen aller Ordner in einer PST-Datei werden schnell in eine Excel-Datei exportiert.
Wenn Ihre PST-Datei zu groß ist, möchten Sie möglicherweise die Größe jedes Ordners überprüfen. Auf diese Weise können Sie leicht herausfinden, welche größer sind, und anhand der Größe eine geeignete Archivierung durchführen. Um die Ordnergröße zu überprüfen, können Sie im Allgemeinen einfach mit der rechten Maustaste auf einen Ordner klicken und dann „Eigenschaften“ auswählen. Im neuen Popup-Dialogfeld können Sie auf die Schaltfläche "Ordnergröße" klicken. Wenn Sie jedoch viele Ordner erstellt haben, ist es sehr mühsam, die Größeninformationen einzeln manuell zu überprüfen. Wenn Sie also die Größeninformationen aller Ordner in einer PST-Datei stapelweise abrufen möchten, können Sie den folgenden VBA-Code verwenden. Alle Ordnernamen und Größeninformationen werden auf einmal in eine Excel-Datei exportiert.
Exportieren Sie die Größeninformationen aller Ordner in einer PST-Datei in eine Excel-Datei
- Starten Sie zunächst Ihre Outlook-Anwendung.
- Wechseln Sie dann zur Registerkarte "Entwickler" und klicken Sie auf die Schaltfläche "Visual Basic" oder drücken Sie die Tasten "Alt + F11", um auf den VBA-Editor zuzugreifen.
- Öffnen Sie als Nächstes im Fenster "Microsoft Visual Basic für Applikationen" ein Modul, das nicht verwendet wird.
- Kopieren Sie anschließend die folgenden VBA-Codes und fügen Sie sie in dieses Modul ein.
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
- Danach sollten Sie die Sicherheitsstufe Ihres Outlook-Makros auf niedrig einstellen.
- Schließlich können Sie es versuchen.
- Drücken Sie im aktuellen Makrofenster die Taste F5.
- Anschließend werden Sie aufgefordert, eine PST-Datei wie das folgende Bild auszuwählen:
- Nach Auswahl einer Quelldatei beginnt Outlook mit dem Exportieren der Größeninformationen nach Excel.
- Nach Abschluss des Makros erhalten Sie eine Nachricht wie im folgenden Screenshot.
- Zuletzt finden Sie die Excel-Datei im vordefinierten lokalen Ordner. Die Excel-Datei sieht folgendermaßen aus:
Umgang mit häufigen PST-Fehlern
Da Outlook fehleranfällig ist, haben Sie möglicherweise jemals viele Probleme in Ihrem Outlook gehabt. Um frustrierende PST-Probleme besser und flexibler zu bewältigen, ist es ratsam, ein erfahrenes und seriöses Fix-Dienstprogramm in der Nähe zu halten, z DataNumen Outlook Repair. Es ist in der Lage PST beheben Probleme wie ein Kinderspiel.
Einführung des Autors:
Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich SQL Server Erholung und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX