วิธีรับจำนวนรายการทั้งหมดในโฟลเดอร์และโฟลเดอร์ย่อยทั้งหมดอย่างรวดเร็วผ่าน Outlook VBA

หากคุณมีโฟลเดอร์ย่อยหลายโฟลเดอร์ในบางโฟลเดอร์และตอนนี้คุณต้องการนับรายการในโฟลเดอร์นี้และโฟลเดอร์ย่อยทั้งหมดคุณสามารถใช้วิธีที่แนะนำในบทความนี้

โดยทั่วไปในการตรวจสอบจำนวนรายการทั้งหมดในโฟลเดอร์เดียวคุณมีสองวิธี หนึ่งคือเลือกโฟลเดอร์นี้จากนั้นคุณสามารถดูจำนวนรายการที่มุมล่างซ้ายของแถบสถานะ อีกวิธีหนึ่งคือการเปลี่ยนคุณสมบัติของโฟลเดอร์เพื่อตั้งค่าให้แสดงจำนวนรายการทั้งหมด อย่างไรก็ตามหากมีโฟลเดอร์ย่อยหลายโฟลเดอร์ในโฟลเดอร์นี้ทั้งสองวิธีข้างต้นจะไม่สามารถรวมโฟลเดอร์ย่อยในการนับได้ ดังนั้นหากคุณต้องการรับจำนวนรายการทั้งหมดในโฟลเดอร์และโฟลเดอร์ย่อยทั้งหมดคุณต้องหาวิธีอื่นเช่นรายการต่อไปนี้ ใช้รหัส VBA เพื่อให้ได้จำนวนรวมดังกล่าวอย่างรวดเร็ว โปรดอ่านเพื่อรับขั้นตอนและรหัส VBA อย่างละเอียด

รับจำนวนรายการทั้งหมดในโฟลเดอร์และโฟลเดอร์ย่อยทั้งหมด

1. ในขั้นแรก คุณสามารถเปิดโปรแกรม Outlook ได้ตามปกติ
2. จากนั้นกดปุ่ม“ Alt + F11” เพื่อแสดงโปรแกรมแก้ไข Outlook VBA
3. ถัดไปคุณสามารถเปิดโมดูลที่ว่างเปล่า
4. จากนั้นคัดลอกและวางรหัส VBA ต่อไปนี้ลงในโมดูลนี้

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. หลังจากนั้นคุณควรเปลี่ยนระดับความปลอดภัยของแมโคร Outlook เป็นระดับต่ำ
6. ในที่สุดคุณก็สามารถลองได้

• ในหน้าต่างมาโครใหม่ให้กดปุ่ม F5
• ในครั้งเดียวคุณจะต้องเลือกโฟลเดอร์
• ทันทีคุณจะได้รับข้อความใหม่แจ้งจำนวนรายการทั้งหมดในโฟลเดอร์ที่เลือกและโฟลเดอร์ย่อยทั้งหมดดังภาพด้านล่าง:

เก็บรายการเก่าในเวลา

ขอแนะนำให้เก็บรายการเก่าไว้ในไฟล์ PST ของคุณโดยเร็วที่สุด มิฉะนั้นเมื่อมีรายการสะสมในไฟล์นี้มากขึ้นเรื่อย ๆ จะมีแนวโน้มที่จะเกิดข้อผิดพลาดและความเสียหาย เมื่อไฟล์ PST ของคุณถูกบุกรุกคุณจะใช้ความพยายามอย่างมากในการกลับไฟล์ Outlook เสียหาย ข้อมูล. มันจะค่อนข้างยากเว้นแต่คุณจะกลับไปใช้เครื่องมือที่มีประสบการณ์เช่น DataNumen Outlook Repair.

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ ทุจริต SQL Server และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.