จะเปิดโฟลเดอร์ย่อยทั้งหมดจาก Outlook ได้อย่างไร
หากคุณสร้างโฟลเดอร์ย่อยหลายโฟลเดอร์ภายใต้โฟลเดอร์ Outlook ของคุณคุณจะเปิดหรือขยายโฟลเดอร์ย่อยทั้งหมดในทันทีได้อย่างไร บทความนี้ฉันจะแนะนำรหัส VBA ที่มีประโยชน์สำหรับคุณในการแก้ปัญหานี้
เปิดหรือขยายโฟลเดอร์ย่อยทั้งหมดจาก Outlook ด้วยรหัส VBA
เปิดหรือขยายโฟลเดอร์ย่อยทั้งหมดจาก Outlook ด้วยรหัส VBA
โปรดใช้รหัส VBA ต่อไปนี้เพื่อขยายโฟลเดอร์ย่อยทั้งหมดจากบัญชี Outlook ทั้งหมด:
1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางมาโครต่อไปนี้ในหน้าต่างโมดูล
รหัส VBA: เปิดโฟลเดอร์ย่อยทั้งหมดจาก Outlook:
Sub ExpandAllMailFolders()
Dim xCurrentFolder As Folder
Dim xAllFolders As Folders
Dim xFolder As Folder
On Error Resume Next
Set xCurrentFolder = Application.ActiveExplorer.CurrentFolder
Set xAllFolders = Application.Session.Folders
For Each xFolder In xAllFolders
Call ProcessFolders(xFolder)
Next
Set Application.ActiveExplorer.CurrentFolder = xCurrentFolder
End Sub
Sub ProcessFolders(ByVal CurFolder As Folder)
Dim xSubfolder As Folder
On Error Resume Next
If CurFolder.DefaultItemType <> olMailItem Then Exit Sub
Set Application.ActiveExplorer.CurrentFolder = CurFolder
DoEvents
If CurFolder.Folders.Count = 0 Then Exit Sub
For Each xSubfolder In CurFolder.Folders
Call ProcessFolders(xSubfolder)
Next
End Sub
3. จากนั้นกด F5 กุญแจสำคัญในการเรียกใช้รหัสนี้และโฟลเดอร์ย่อยทั้งหมดในบัญชีทั้งหมดของ Outlook ของคุณได้รับการขยายดูภาพหน้าจอ:
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
ข่าวด่วน: Kutools สำหรับ Outlook เปิดตัว เวอร์ชันฟรี!
สัมผัสประสบการณ์ Kutools ใหม่สำหรับ Outlook เวอร์ชันฟรีพร้อมฟีเจอร์ที่น่าทึ่งกว่า 70 รายการ ให้คุณใช้งานได้ตลอดไป! คลิกดาวน์โหลดเลย!
🤖 Kutools AI : ใช้เทคโนโลยี AI ขั้นสูงเพื่อจัดการอีเมลได้อย่างง่ายดาย รวมถึงการตอบกลับ การสรุป การเพิ่มประสิทธิภาพ การขยาย การแปล และการเขียนอีเมล
📧 การทำงานอัตโนมัติของอีเมล: ตอบกลับอัตโนมัติ (ใช้ได้กับ POP และ IMAP) / กำหนดการส่งอีเมล / Auto CC/BCC ตามกฎเมื่อส่งอีเมล / ส่งต่ออัตโนมัติ (กฎขั้นสูง) / เพิ่มคำทักทายอัตโนมัติ / แบ่งอีเมลผู้รับหลายรายออกเป็นข้อความส่วนตัวโดยอัตโนมัติ ...
📨 การจัดการอีเมล์: เรียกคืนอีเมล / บล็อกอีเมลหลอกลวงตามหัวเรื่องและอื่นๆ / ลบอีเมลที่ซ้ำกัน / การค้นหาขั้นสูง / รวมโฟลเดอร์ ...
📁 ไฟล์แนบโปร: บันทึกแบทช์ / การแยกแบทช์ / การบีบอัดแบบแบตช์ / บันทึกอัตโนมัติ / ถอดอัตโนมัติ / บีบอัดอัตโนมัติ ...
🌟 อินเตอร์เฟซเมจิก: 😊อีโมจิที่สวยและเจ๋งยิ่งขึ้น / เตือนคุณเมื่อมีอีเมลสำคัญมาถึง / ลดขนาด Outlook แทนที่จะปิด ...
???? เพียงคลิกเดียวสิ่งมหัศจรรย์: ตอบกลับทั้งหมดด้วยไฟล์แนบที่เข้ามา / อีเมลต่อต้านฟิชชิ่ง / 🕘 แสดงโซนเวลาของผู้ส่ง ...
👩🏼🤝👩🏻 รายชื่อและปฏิทิน: แบทช์เพิ่มผู้ติดต่อจากอีเมลที่เลือก / แบ่งกลุ่มผู้ติดต่อเป็นกลุ่มแต่ละกลุ่ม / ลบการแจ้งเตือนวันเกิด ...
