Τρόπος γρήγορης εξαγωγής του συνολικού αριθμού στοιχείων σε κάθε φάκελο του Outlook στο Excel

Εάν θέλετε να λάβετε μια αναφορά σχετικά με τον αριθμό των στοιχείων σε κάθε φάκελο του Outlook, μπορείτε να χρησιμοποιήσετε τη μέθοδο που παρουσιάζεται σε αυτό το άρθρο. Θα κάνει γρήγορα την καταμέτρηση και θα εξαγάγει τα αποτελέσματα σε ένα αρχείο Excel.

Στο προηγούμενο άρθρο μου - «Πώς να αποκτήσετε γρήγορα το συνολικό πλήθος των στοιχείων σε έναν φάκελο και όλους τους υποφακέλους του μέσω του Outlook VBA”, μπορείτε να μάθετε μια μέθοδο χρησιμοποιώντας VBA για να λάβετε τον αριθμό των στοιχείων σε έναν φάκελο. Ωστόσο, με αυτόν τον τρόπο, εάν θέλετε να μετρήσετε τα στοιχεία σε όλους τους φακέλους, πρέπει να επιλέξετε κάθε φάκελο και να εκτελέσετε τη μακροεντολή μία προς μία. Είναι λίγο κουραστικό. Επομένως, θα σας μάθουμε μια άλλη μέθοδο, η οποία θα εξάγει την καταμέτρηση σε ένα αρχείο Excel.

Εξαγάγετε το συνολικό αριθμό στοιχείων σε κάθε φάκελο του Outlook στο Excel

1. Στην αρχή, ξεκινήστε το πρόγραμμα Outlook.
2. Στη συνέχεια, πατήστε τα πλήκτρα "Alt + F11" στο κύριο παράθυρο του Outlook.
3. Στη συνέχεια θα μπείτε στο παράθυρο "Microsoft Visual Basic for Applications", στο οποίο πρέπει να ανοίξετε μια λειτουργική μονάδα που δεν χρησιμοποιείται.
4. Στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA σε αυτήν την ενότητα.

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

5. Μετά από αυτό, πρέπει να αλλάξετε το επίπεδο ασφάλειας μακροεντολής του Outlook σε χαμηλό.
6. Στη συνέχεια, μπορείτε να επιστρέψετε στη μακροεντολή που προστέθηκε πρόσφατα και να πατήσετε το πλήκτρο F5 για να εκτελέσετε αυτήν τη μακροεντολή.
7. Στη συνέχεια, πρέπει να επιλέξετε ένα αρχείο προέλευσης PST και να πατήσετε "OK".
8. Αφού ολοκληρωθεί η μακροεντολή, μπορείτε να μεταβείτε στον προκαθορισμένο τοπικό φάκελο για να βρείτε το νέο αρχείο Excel, το οποίο θα μοιάζει με το ακόλουθο στιγμιότυπο οθόνης:

Τακτοποιήστε τα ενοχλητικά σφάλματα PST

Ίσως αντιμετωπίσατε διάφορα ζητήματα κατά τη χρήση του Outlook. Για να αντιμετωπίσετε τα μικρά ζητήματα, μπορείτε απλά να καταφύγετε στα εργαλείο επισκευής εισερχομένων. Ωστόσο, εάν τα προβλήματα είναι τόσο σοβαρά που έχουν ξεπεράσει αυτό που μπορεί να κάνει το ενσωματωμένο εργαλείο, πρέπει να χρησιμοποιήσετε ένα πιο ισχυρό εργαλείο, όπως DataNumen Outlook Repair.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων Επισκευή MDF και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com