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

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

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

รับรายการโฟลเดอร์ใน 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 และทำให้การทำงานง่ายขึ้นมาก

• CC อัตโนมัติ / BCC ตามกฎเมื่อส่งอีเมล ส่งต่ออัตโนมัติ อีเมลหลายฉบับโดยกำหนดเอง ตอบอัตโนมัติ ไม่มีเซิร์ฟเวอร์แลกเปลี่ยนและคุณสมบัติอัตโนมัติอื่น ๆ ...
• คำเตือน BCC - แสดงข้อความเมื่อคุณพยายามตอบกลับทั้งหมด หากที่อยู่อีเมลของคุณอยู่ในรายการ BCC; เตือนเมื่อไม่มีไฟล์แนบและคุณสมบัติการเตือนอื่น ๆ ...
• ตอบกลับ (ทั้งหมด) พร้อมไฟล์แนบทั้งหมดในการสนทนาทางไปรษณีย์; ตอบกลับอีเมลจำนวนมาก ในไม่กี่วินาที เพิ่มคำทักทายอัตโนมัติ เมื่อตอบกลับ; เพิ่มวันที่ในหัวเรื่อง ...
• เครื่องมือแนบ: จัดการไฟล์แนบทั้งหมดในอีเมลทั้งหมด ถอดอัตโนมัติ, บีบอัดทั้งหมด, เปลี่ยนชื่อทั้งหมด, บันทึกทั้งหมด ... รายงานด่วน, นับอีเมลที่เลือก...
• อีเมลขยะที่มีประสิทธิภาพ ตามธรรมเนียม; ลบอีเมลและผู้ติดต่อที่ซ้ำกัน... ช่วยให้คุณทำงานได้อย่างชาญฉลาดขึ้นเร็วขึ้นและดีขึ้นใน Outlook

อ่านเพิ่มเติม ... ดาวน์โหลดเดี๋ยวนี้...