Làm cách nào để mở tất cả các thư mục con từ Outlook?
Nếu bạn tạo nhiều thư mục con trong các thư mục Outlook của mình, làm thế nào bạn có thể mở hoặc mở rộng tất cả các thư mục con này ngay lập tức? Bài viết này, mình sẽ giới thiệu một đoạn mã VBA hữu ích cho bạn để giải quyết công việc này.
Mở hoặc mở rộng tất cả các thư mục con từ Outlook bằng mã VBA
Mở hoặc mở rộng tất cả các thư mục con từ Outlook bằng mã VBA
Vui lòng áp dụng mã VBA sau để mở rộng tất cả các thư mục con từ tất cả các tài khoản Outlook:
1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. Nhấp chuột Chèn > Mô-đunvà dán macro sau vào Cửa sổ mô-đun.
Mã VBA: Mở tất cả các thư mục con từ 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. Sau đó nhấn F5 để chạy mã này và tất cả các thư mục con trong tất cả các tài khoản Outlook của bạn đã được mở rộng, hãy xem ảnh chụp màn hình:
Công cụ năng suất văn phòng tốt nhất
Tin nóng: Kutools cho Outlook ra mắt Phiên bản miễn phí!
Trải nghiệm Kutools hoàn toàn mới cho Outlook Phiên bản MIỄN PHÍ với hơn 70 tính năng đáng kinh ngạc, bạn có thể sử dụng MÃI MÃI! Bấm để tải xuống ngay bây giờ!
🤖 Kutools AI : Sử dụng công nghệ AI tiên tiến để xử lý email một cách dễ dàng, bao gồm trả lời, tóm tắt, tối ưu hóa, mở rộng, dịch và soạn email.
📧 Tự động hoá email: Trả lời tự động (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ẻ ...
📨 Quản lý email: 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 ...
📁 Tệp đính kèm chuyên nghiệp: Lư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 ...
🌟 Giao diện ma thuật: 😊Thêm nhiều biểu tượng cảm xúc đẹp và thú vị hơn / Nhắc nhở bạn khi có email quan trọng đến / Thu nhỏ Outlook thay vì đóng ...
👍 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 ...
👩🏼🤝👩🏻 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 ...
