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
- Auto CC / BCC bởi các quy tắc khi gửi email; Tự động chuyển tiếp Nhiều Email theo quy tắc; Tự động trả lời không có máy chủ trao đổi và các tính năng tự động khác ...
- Cảnh báo BCC - hiển thị tin nhắn khi bạn cố gắng trả lời tất cả nếu địa chỉ mail của bạn có trong danh sách BCC; Nhắc nhở khi thiếu tệp đính kèmvà các tính năng nhắc nhở khác ...
- Trả lời (Tất cả) Với Tất cả Tệp đính kèm trong cuộc trò chuyện qua thư; Trả lời nhiều email cùng một lúc; Tự động thêm lời chào khi trả lời; Tự động Thêm Ngày & Giờ vào chủ đề ...
- Công cụ đính kèm: Tự động tách, Nén tất cả, Đổi tên tất cả, Tự động lưu tất cả ... Báo cáo nhanh, Đếm Thư đã Chọn, Xóa Thư và Địa chỉ Liên hệ Trùng lặp ...
- Hơn 100 tính năng nâng cao sẽ giải quyết hầu hết các vấn đề của bạn trong Outlook 2021 - 2010 hoặc Office 365. Tính năng đầy đủ Bản dùng thử miễn phí 60 ngày.
Nhậ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.
Kutools cho Outlook - Cung cấp 100 Tính năng Nâng cao cho Outlook và Làm cho Công việc Dễ dàng hơn Nhiều!
- Auto CC / BCC bởi các quy tắc khi gửi email; Tự động chuyển tiếp Nhiều Email theo tùy chỉnh; Tự động trả lời không có máy chủ trao đổi và các tính năng tự động khác ...
- Cảnh báo BCC - hiển thị tin nhắn khi bạn cố gắng trả lời tất cả nếu địa chỉ thư của bạn có trong danh sách BCC; Nhắc nhở khi thiếu tệp đính kèmvà các tính năng nhắc nhở khác ...
- Trả lời (Tất cả) Với Tất cả Tệp đính kèm trong cuộc trò chuyện qua thư; Trả lời nhiều email trong vài giây; Tự động thêm lời chào khi trả lời; Thêm Ngày vào chủ đề ...
- Công cụ Tệp đính kèm: Quản lý Tất cả Tệp đính kèm trong Tất cả Thư, Tự động tách, Nén tất cả, Đổi tên tất cả, Lưu tất cả ... Báo cáo nhanh, Đếm thư đã chọnhữu ích. Cảm ơn !
- Email rác mạnh mẽ Theo phong tục; Xóa thư và liên hệ trùng lặphữu ích. Cảm ơn ! Cho phép bạn làm việc thông minh hơn, nhanh hơn và tốt hơn trong Outlook.

