Wenn Sie einen Bericht über die Anzahl der Elemente in jedem Outlook-Ordner erhalten möchten, können Sie die in diesem Artikel vorgestellte Methode verwenden. Es wird schnell gezählt und die Ergebnisse in eine Excel-Datei exportiert.
In meinem vorherigen Artikel - „So ermitteln Sie schnell die Gesamtzahl der Elemente in einem Ordner und allen seinen Unterordnern über Outlook VBA”Können Sie eine Methode mit VBA erlernen, um die Anzahl der Elemente in einem Ordner abzurufen. Wenn Sie jedoch die Elemente in allen Ordnern zählen möchten, müssen Sie auf diese Weise jeden Ordner auswählen und das Makro einzeln ausführen. Es ist ein bisschen langweilig. Daher werden wir Ihnen eine andere Methode beibringen, mit der die Anzahl in eine Excel-Datei exportiert wird.
Exportieren Sie die Gesamtzahl der Elemente in jedem Outlook-Ordner nach Excel
- Starten Sie zu Beginn Ihr Outlook-Programm.
- Drücken Sie dann im Outlook-Hauptfenster die Tasten „Alt + F11“.
- Als Nächstes gelangen Sie zum Fenster "Microsoft Visual Basic für Applikationen", in dem Sie ein Modul öffnen müssen, das nicht verwendet wird.
- Kopieren Sie anschließend den folgenden VBA-Code und fügen Sie ihn in dieses Modul ein.
Public strExcelFile As String
Public objExcelApp As Excel.Application
Public objExcelWorkbook As Excel.Workbook
Public objExcelWorksheet As Excel.Worksheet
Sub Export_CountOfItems_InEachFolder_toExcel()
Dim objSourcePST As Outlook.Folder
Dim objFolder As Outlook.Folder
'Create a new Excel file
Set objExcelApp = CreateObject("Excel.Application")
Set objExcelWorkbook = objExcelApp.Workbooks.Add
Set objExcelWorksheet = objExcelWorkbook.Sheets("Sheet1")
objExcelWorksheet.Cells(1, 1) = "Folder"
objExcelWorksheet.Cells(1, 2) = "Count Items"
'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 Items Count (" & 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 lCurrentFolderItemCount As Long
Dim nLastRow As Integer
lCurrentFolderItemCount = objCurrentFolder.Items.Count
nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
'Add the values into the columns
objExcelWorksheet.Range("A" & nLastRow) = objCurrentFolder.FolderPath
objExcelWorksheet.Range("B" & nLastRow) = lCurrentFolderItemCount
If objCurrentFolder.folders.Count > 0 Then
For Each objSubfolder In objCurrentFolder.folders
Call ProcessFolders(objSubfolder)
Next
End If
End Sub
- Danach müssen Sie die Sicherheitsstufe Ihres Outlook-Makros auf niedrig ändern.
- Anschließend können Sie zum neu hinzugefügten Makro zurückkehren und die Taste F5 drücken, um dieses Makro auszuführen.
- Als nächstes müssen Sie eine Quell-PST-Datei auswählen und auf "OK" klicken.
- Nachdem das Makro fertig ist, können Sie in den vordefinierten lokalen Ordner gehen, um die neue Excel-Datei zu finden, die wie folgt aussieht:
Beheben Sie störende PST-Fehler
Möglicherweise sind Sie bei der Verwendung von Outlook auf verschiedene Probleme gestoßen. Um die kleinen Probleme zu lösen, können Sie einfach auf die zurückgreifen Reparaturwerkzeug für den Posteingang. Wenn die Probleme jedoch so schwerwiegend sind, dass sie über das hinausgehen, was das eingebaute Tool leisten kann, müssen Sie ein leistungsfähigeres Tool verwenden, z DataNumen Outlook Repair.
Einführung des Autors:
Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich MDF-Reparatur und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX