Bỏ qua nội dung chính

Làm cách nào để lấy danh sách các thư mục trong Outlook?

Đôi khi cấu trúc cây của tất cả các thư mục thư (bao gồm các thư mục cá nhân đã tạo) trong Ngăn Dẫn hướng có thể giúp một số người dùng Outlook trong quá trình làm việc của họ. Để nhanh chóng liệt kê toàn bộ thư mục cấu trúc cây, mã VBA có thể giúp bạn. Trong hướng dẫn này, bạn có thể học cách lấy danh sách các thư mục dễ dàng bằng mã VBA.

Nhận danh sách các thư mục trong Outlook với mã VBA

Tab Office - Cho phép chỉnh sửa và duyệt theo tab trong Microsoft Office, giúp công việc trở nên dễ dàng
Kutools for Outlook - Tăng cường Outlook với hơn 100 tính năng nâng cao để đạt hiệu quả vượt trội
Tăng cường Outlook 2021 - 2010 hoặc Outlook 365 của bạn với các tính năng nâng cao này. Tận hưởng bản dùng thử miễn phí toàn diện trong 60 ngày và nâng cao trải nghiệm email của bạn!

mũi tên màu xanh bong bóng bên phảiNhận danh sách các thư mục trong Outlook với mã VBA

Để nhận danh sách các thư mục trong Outlook với mã VBA, vui lòng thực hiện như sau.

1. Nhấn nút Khác + F11 các phím trên bàn phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Sau đó nhấp đúp vào Project1 > Đối tượng Microsoft Outlook > ĐâyOutlookSession để mở Project1 - ThisOutlookSession cửa sổ. Xem ảnh chụp màn hình:

3. Sau đó sao chép và dán mã VBA bên dưới vào cửa sổ Project1 - ThisOutlookSession.

VBA: lấy danh sách các thư mục trong 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. Nhấn nút F5 trên bàn phím để bắt đầu chạy mã VBA.

5. Bây giờ a Macro hộp thoại bật lên, vui lòng nhấp vào chạy .

6. Chờ Macro chạy. Sau đó, danh sách tất cả các thư mục email của bạn sẽ được liệt kê trong một cửa sổ thư mới đã tạo ngay lập tức. Bạn có thể dễ dàng in nó ra. Xem ảnh chụp màn hình:

Chú thích: Mã VBA này có thể được áp dụng cho Outlook 2007, 2010 và 2013.


Công cụ năng suất văn phòng tốt nhất

Kutools cho Outlook - Hơn 100 tính năng mạnh mẽ để tăng cường Outlook của bạn

🤖 Trợ lý thư AI: Email chuyên nghiệp tức thì với phép thuật AI--một cú nhấp chuột để có câu trả lời xuất sắc, giọng điệu hoàn hảo, khả năng thông thạo đa ngôn ngữ. Chuyển đổi email một cách dễ dàng! ...

📧 Tự động hoá email: Vắng Mặt (Có sẵn cho POP và IMAP)  /  Lên lịch gửi email  /  Tự động CC/BCC theo quy định khi gửi Email  /  Tự động chuyển tiếp (Quy tắc nâng cao)   /  Tự động thêm lời chào   /  Tự động chia email nhiều người nhận thành các tin nhắn riêng lẻ hữu ích. Cảm ơn !

📨 Quản lý email: Dễ dàng thu hồi email  /  Chặn email lừa đảo theo chủ đề và những người khác  /  Xóa các email trùng lặp  /  Tìm Kiếm Nâng Cao  /  Hợp nhất các thư mục hữu ích. Cảm ơn !

📁 Tệp đính kèm chuyên nghiệpLưu hàng loạt  /  Tách hàng loạt  /  Nén hàng loạt  /  Tự động lưu   /  Tự động tách  /  Tự động nén hữu ích. Cảm ơn !

🌟 Giao diện ma thuật: 😊Thêm nhiều biểu tượng cảm xúc đẹp và thú vị hơn   /  Tăng năng suất Outlook của bạn với chế độ xem theo thẻ  /  Thu nhỏ Outlook thay vì đóng hữu ích. Cảm ơn !

👍 Kỳ quan chỉ bằng một cú nhấp chuột: Trả lời tất cả bằng tệp đính kèm đến  /   Email chống lừa đảo  /  🕘Hiển thị múi giờ của người gửi hữu ích. Cảm ơn !

👩🏼‍🤝‍👩🏻 Danh bạ & Lịch: Thêm hàng loạt liên hệ từ các email đã chọn  /  Chia nhóm liên hệ thành các nhóm riêng lẻ  /  Xóa lời nhắc sinh nhật hữu ích. Cảm ơn !

Trên 100 tính năng Chờ đợi sự khám phá của bạn! Bấm vào đây để khám phá thêm.

 

 

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