Cara Dapatkan Jumlah Item dengan Cepat dalam Folder dan Semua Subfoldernya melalui Outlook VBA

Sekiranya anda mempunyai beberapa subfolder di bawah folder tertentu dan sekarang anda ingin mengira item dalam folder ini dan semua subfoldernya, anda boleh menggunakan cara yang diperkenalkan dalam artikel ini.

Secara amnya, untuk memeriksa jumlah item dalam satu folder, anda mempunyai dua cara. Salah satunya ialah memilih folder ini dan kemudian anda dapat melihat jumlah item di sudut kiri bawah bar status. Yang lain adalah menukar sifat folder untuk menetapkannya untuk menunjukkan jumlah item. Walau bagaimanapun, jika terdapat beberapa subfolder di bawah folder ini, kedua-dua cara di atas tidak dapat memasukkan subfolder dalam pengiraan. Oleh itu, jika anda ingin mendapatkan jumlah item dalam folder dan semua subfoldernya, anda perlu mencari cara lain, seperti yang berikut. Ini menggunakan kod VBA untuk mencapai jumlah yang cepat. Sila baca untuk mendapatkan langkah dan kod VBA yang terperinci.

Dapatkan Jumlah Item dalam Folder dan Semua Subfoldernya

1. Pada mulanya, anda boleh memulakan program Outlook anda seperti biasa.
2. Kemudian tekan butang "Alt + F11" untuk menunjukkan penyunting Outlook VBA.
3. Seterusnya anda boleh membuka modul kosong.
4. Selepas itu, salin dan tampal kod VBA berikut ke dalam modul ini.

Sub CountItems()
    Dim objMainFolder As Outlook.Folder
    Dim lItemsCount As Long
 
    'Select a folder
    Set objMainFolder = Outlook.Application.Session.PickFolder
 
    If objMainFolder Is Nothing Then
       MsgBox "You choose select a valid folder!", vbExclamation + vbOKOnly, "Warning for Pick Folder"
    Else
       'Initialize the total count
       lItemsCount = 0
       Call LoopFolders(objMainFolder, lItemsCount)
    End If
 
    'Display a message for the total count
    MsgBox "There are " & lItemsCount & " items in the " & objMainFolder.Name & " folder Including its subfolders.", vbInformation, "Count Items"
End Sub

Sub LoopFolders(ByVal objCurrentFolder As Outlook.Folder, lCurrentItemsCount As Long)
    Dim objSubfolder As Outlook.Folder
 
    lCurrentItemsCount = lCurrentItemsCount + objCurrentFolder.Items.Count
 
    'Process all folders and subfolders recursively
    If objCurrentFolder.Folders.Count Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call LoopFolders(objSubfolder, lCurrentItemsCount)
       Next
    End If
End Sub

5. Selepas itu, anda harus mengubah tahap keselamatan makro Outlook anda menjadi rendah.
6. Akhirnya anda boleh mencuba.

• Di tetingkap makro baru, tekan butang kekunci F5.
• Sekali gus, anda diminta memilih folder.
• Segera, anda akan menerima mesej baru yang meminta jumlah item dalam folder yang dipilih dan semua subfoldernya, seperti gambar di bawah:

Arkib Item Lama dalam Masa

Selalu disarankan untuk mengarkibkan item lama dalam fail PST anda secepat mungkin. Jika tidak, dengan semakin banyak item terkumpul dalam fail ini, ia akan terdedah kepada kesilapan dan kerosakan. Setelah fail PST anda dikompromikan, anda akan menghabiskan banyak usaha untuk mendapatkan kembali fail tersebut Outlook rosak data. Ini akan menjadi sukar kecuali anda menggunakan alat yang berpengalaman seperti DataNumen Outlook Repair.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk rasuah SQL Server dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com