ไปยังเนื้อหาหลัก

วิธีรับรายการโฟลเดอร์ใน Outlook

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

รับรายการโฟลเดอร์ใน Outlook พร้อมรหัส VBA

Office Tab - เปิดใช้งานการแก้ไขแบบแท็บและการเรียกดูใน Microsoft Office ทำให้งานเป็นเรื่องง่าย
Kutools for Outlook - เพิ่ม Outlook ด้วยฟีเจอร์ขั้นสูงกว่า 100+ รายการเพื่อประสิทธิภาพที่เหนือกว่า
เพิ่มประสิทธิภาพ Outlook 2021 - 2010 หรือ Outlook 365 ของคุณด้วยฟีเจอร์ขั้นสูงเหล่านี้ เพลิดเพลินกับการทดลองใช้ฟรี 60 วันและยกระดับประสบการณ์อีเมลของคุณ!

ลูกศรสีฟ้าฟองขวารับรายการโฟลเดอร์ใน Outlook พร้อมรหัส VBA

สำหรับการรับรายชื่อโฟลเดอร์ใน Outlook ด้วยรหัส VBA โปรดทำดังนี้

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

2. จากนั้นดับเบิลคลิกที่ไฟล์ Project1 > วัตถุ Microsoft Outlook > นี้OutlookSession เพื่อเปิด Project1 - ThisOutlookSession หน้าต่าง. ดูภาพหน้าจอ:

3. จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่าง Project1 - ThisOutlookSession

VBA: รับรายการโฟลเดอร์ใน Outlook

Option Explicit
Sub GetFoldersList()
    On Error GoTo On_Error
    
    Dim Report As String
    Dim Folder As Outlook.Folder
       
    For Each Folder In Application.Session.Folders
        Report = Report & "---------------------------------------------------------------------------" & vbCrLf
        Call RecurseFolders(Folder, "", Report)
    Next
    Call CreateReportEmail("Outlook Folders List", Report)
    
Exiting:
    Exit Sub
On_Error:
    MsgBox "error=" & Err.Number & " " & Err.Description
End Sub
Sub RecurseFolders(CurrentFolder As Outlook.Folder, TabChars, ByRef Report As String)
    Dim SubFolder As Outlook.Folder
    Dim FolderName, StoreName As String
    
    FolderName = CurrentFolder.Name
    StoreName = CurrentFolder.Store.DisplayName
    
    Report = Report & TabChars & FolderName & " (Store: " & StoreName & ")" & vbCrLf
    
    For Each SubFolder In CurrentFolder.Folders
        Call RecurseFolders(SubFolder, TabChars & vbTab, Report)
    Next SubFolder
End Sub
Sub CreateReportEmail(Title As String, Report As String)
    Dim aMail As MailItem
    
    Set aMail = Application.CreateItem(olMailItem)
        
    aMail.Subject = Title
    aMail.Body = Report
    
    aMail.Display
End Sub

4 กด F5 บนแป้นพิมพ์เพื่อเริ่มรันโค้ด VBA

5. ตอนนี้ก แมโคร กล่องโต้ตอบปรากฏขึ้นโปรดคลิกที่ไฟล์ วิ่ง ปุ่ม

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

หมายเหตุ: รหัส VBA นี้สามารถใช้ได้กับ Outlook 2007, 2010 และ 2013


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

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

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

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

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

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

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

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

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

 

 

Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
For get the size of the folders how do you do it?
This comment was minimized by the moderator on the site
Working perfect with OLK 365, Thank you!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations