วิธีนับจำนวนโฟลเดอร์ย่อยภายใต้โฟลเดอร์บางโฟลเดอร์ใน Outlook

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

นับจำนวนโฟลเดอร์ย่อยด้วยรหัส VBA

นับจำนวนโฟลเดอร์ย่อยด้วยรหัส VBA

รหัส VBA ต่อไปนี้สามารถช่วยคุณนับจำนวนโฟลเดอร์ย่อยภายใต้โฟลเดอร์รากบางโฟลเดอร์ใน Outlook กรุณาดำเนินการดังนี้

1 กด อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่างรหัส

รหัส VBA: นับจำนวนโฟลเดอร์ย่อยภายใต้บางโฟลเดอร์ใน Outlook

Sub CountSubFldsUnderRootFolder()
Dim xRootFolder As Folder
Dim xFolderCount As Long
Dim xFolder As Object
On Error Resume Next
'Set xRootFolder = Outlook.Application.ActiveExplorer.CurrentFolder
Set xRootFolder = Outlook.Application.Session.PickFolder
If TypeName(xRootFolder) = "Nothing" Then Exit Sub
If xRootFolder.Folders.Count < 1 Then
    MsgBox "No subfolders under " & Chr(34) & xRootFolder.Name & Chr(34) & ".", vbInformation, "Kutools for Outlook"
    Exit Sub
End If
For Each xFolder In xRootFolder.Folders
    If xFolder.Name <> "Conversation Action Settings" And xFolder.Name <> "Quick Step Settings" Then
        xFolderCount = xFolderCount + 1
        Call ProcessFolders(xFolder, xFolderCount)
    End If
Next
MsgBox xFolderCount & " subfolders under " & Chr(34) & xRootFolder.Name & Chr(34) & ".", vbInformation, "Kutools for Outlook"
End Sub

Sub ProcessFolders(SubFolder As MAPIFolder, Num As Long)
Dim xSubFolder As MAPIFolder
On Error Resume Next
Num = Num + SubFolder.Folders.Count
For Each xSubFolder In SubFolder.Folders
    Call ProcessFolders(xSubFolder, Num)
Next
End Sub

3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส

4. ในการเปิด เลือกโฟลเดอร์ กล่องโต้ตอบ เลือกโฟลเดอร์ที่คุณจะนับโฟลเดอร์ย่อย จากนั้นคลิกปุ่ม OK ปุ่ม. ดูภาพหน้าจอ:

5. จากนั้นก Kutools สำหรับ Outlook กล่องโต้ตอบจะปรากฏขึ้นเพื่อบอกคุณว่ามีโฟลเดอร์ย่อยจำนวนเท่าใดในโฟลเดอร์ที่ระบุ ดูภาพหน้าจอ:

บทความที่เกี่ยวข้อง:

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

---

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

Kutools สำหรับ Outlook - คุณสมบัติอันทรงพลังมากกว่า 100 รายการเพื่อเติมพลังให้กับ Outlook ของคุณ

🤖 ผู้ช่วยจดหมาย AI: ส่งอีเมลระดับมืออาชีพทันทีด้วยเวทมนตร์ AI คลิกเพียงครั้งเดียวเพื่อตอบกลับอย่างชาญฉลาด น้ำเสียงที่สมบูรณ์แบบ การเรียนรู้หลายภาษา เปลี่ยนรูปแบบการส่งอีเมลอย่างง่ายดาย! ...

📧 การทำงานอัตโนมัติของอีเมล: ไม่อยู่ที่สำนักงาน (ใช้ได้กับ POP และ IMAP)  /  กำหนดการส่งอีเมล  /  Auto CC/BCC ตามกฎเมื่อส่งอีเมล  /  ส่งต่ออัตโนมัติ (กฎขั้นสูง)   /  เพิ่มคำทักทายอัตโนมัติ   /  แบ่งอีเมลผู้รับหลายรายออกเป็นข้อความส่วนตัวโดยอัตโนมัติ ...

📨 การจัดการอีเมล์: เรียกคืนอีเมลได้อย่างง่ายดาย  /  บล็อกอีเมลหลอกลวงตามหัวเรื่องและอื่นๆ  /  ลบอีเมลที่ซ้ำกัน  /  การค้นหาขั้นสูง  /  รวมโฟลเดอร์ ...

📁 ไฟล์แนบโปร: บันทึกแบทช์  /  การแยกแบทช์  /  การบีบอัดแบบแบตช์  /  บันทึกอัตโนมัติ   /  ถอดอัตโนมัติ  /  บีบอัดอัตโนมัติ ...

🌟 อินเตอร์เฟซเมจิก: 😊อีโมจิที่สวยและเจ๋งยิ่งขึ้น   /  เพิ่มประสิทธิภาพการทำงาน Outlook ของคุณด้วยมุมมองแบบแท็บ  /  ลดขนาด Outlook แทนที่จะปิด ...

???? เพียงคลิกเดียวสิ่งมหัศจรรย์: ตอบกลับทั้งหมดด้วยไฟล์แนบที่เข้ามา  /   อีเมลต่อต้านฟิชชิ่ง  /  🕘 แสดงโซนเวลาของผู้ส่ง ...

👩🏼‍🤝‍👩🏻 รายชื่อและปฏิทิน: แบทช์เพิ่มผู้ติดต่อจากอีเมลที่เลือก  /  แบ่งกลุ่มผู้ติดต่อเป็นกลุ่มแต่ละกลุ่ม  /  ลบการแจ้งเตือนวันเกิด ...

เกิน คุณสมบัติ 100 รอการสำรวจของคุณ! คลิกที่นี่เพื่อค้นพบเพิ่มเติม

อ่านเพิ่มเติม       ดาวน์โหลดฟรี      การซื้อ