Làm cách nào để tự động mở rộng tất cả các thư mục khi khởi động Outlook?
Thông thường, khi bạn mở rộng hoặc thu gọn một thư mục trong Ngăn Dẫn hướng của Outlook và sau đó đóng chương trình, thư mục đó vẫn giữ trạng thái mở rộng hoặc thu gọn khi mở lại Outlook. Tuy nhiên, nếu bạn muốn tất cả các thư mục được tự động mở rộng mỗi khi khởi động Outlook thì sao? Bài viết này cung cấp giải pháp VBA để đạt được điều đó.
Tự động mở rộng tất cả các thư mục khi khởi động Outlook bằng VBA
- Gửi email tự động với Auto CC / BCC, Tự động chuyển tiếp theo quy định; gửi Tự động trả lời (Vắng mặt) mà không cần máy chủ trao đổi...
- Nhận lời nhắc như Cảnh báo BCC khi trả lời tất cả khi bạn đang ở trong danh sách BCC và Nhắc nhở khi thiếu tệp đính kèm để quên các tệp đính kèm...
- Cải thiện hiệu quả email với Trả lời (Tất cả) kèm tệp đính kèm, Tự động thêm lời chào hoặc ngày và giờ vào chữ ký hoặc chủ đề, Trả lời nhiều emailhữu ích. Cảm ơn !
- Hợp lý hóa việc gửi email với Thu hồi email, Công cụ đính kèm (Nén tất cả, Tự động lưu tất cả...), Loại bỏ các bản saovà Báo cáo nhanhhữu ích. Cảm ơn !
Tự động mở rộng tất cả các thư mục khi khởi động Outlook bằng VBA
Hướng dẫn này sẽ trình bày cách sử dụng tập lệnh VBA để tự động mở rộng tất cả các thư mục trong Ngăn Dẫn hướng mỗi khi bạn khởi chạy Outlook. Hãy làm theo các bước sau để triển khai tập lệnh VBA:
- Ấn Bản Alt + F11 các phím đồng thời để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
- Mở rộng Dự án 1 và Đối tượng Microsoft Outlook trong Dự án cửa sổ, nhấp đúp chuột để mở ĐâyOutlookSession cửa sổ rồi dán mã VBA bên dưới vào đó.
VBA: Tự động mở rộng tất cả các thư mục trong Outlook
Public WithEvents GEx As Explorer Public GFlag As Boolean Private Sub Application_Startup() 'Update by ExtendOffice 2023/12/08 Set GEx = Application.ActiveExplorer GFlag = False End Sub Private Sub GEx_SelectionChange() If GFlag = False Then ExpandAllFolders End If GFlag = True End Sub Public Sub ExpandAllFolders() Dim xNameSpace As Outlook.NameSpace Dim xFlds As Outlook.Folders Dim xCurrFld As Outlook.MAPIFolder Dim xFld As Outlook.MAPIFolder Dim xExpandDefaultStoreOnly As Boolean Dim xModule As NavigationModule On Error Resume Next xExpandDefaultStoreOnly = False Set xNameSpace = Application.Session Set xModule = Application.ActiveExplorer.NavigationPane.CurrentModule Set xCurrFld = Application.ActiveExplorer.CurrentFolder If xExpandDefaultStoreOnly = True Then Set xFld = xNameSpace.GetDefaultFolder(olFolderInbox) Set xFld = xFld.Parent Set xFlds = xFld.Folders LoopFolders xFlds, True Else LoopFolders xNameSpace.Folders, True LoopFolders xNameSpace.Folders, False End If DoEvents Set Application.ActiveExplorer.NavigationPane.CurrentModule = xModule Set Application.ActiveExplorer.CurrentFolder = xCurrFld Set xNameSpace = Nothing Set xModule = Nothing Set xCurrFld = Nothing End Sub Private Sub LoopFolders(Flds As Outlook.Folders, ByVal All As Boolean) Dim xFld As Outlook.MAPIFolder On Error Resume Next For Each xFld In Flds Select Case All Case True If xFld.DefaultItemType = olMailItem Then Set Application.ActiveExplorer.CurrentFolder = xFld DoEvents If xFld.Folders.Count > 0 Then LoopFolders xFld.Folders, All End If End If Case False Set Application.ActiveExplorer.CurrentFolder = xFld DoEvents If xFld.Folders.Count > 0 Then LoopFolders xFld.Folders, All End If End Select Next End Sub
- Lưu mã và đóng Microsoft Visual Basic cho các ứng dụng cửa sổ.
Từ bây giờ, khi khởi động lại Outlook, tất cả các thư mục sẽ được tự động mở rộng trong Outlook.
Ghi chú:
- VBA này không thể mở thư mục tìm kiếm đã thu gọn khi khởi động lại Outlook.
- Để đảm bảo tập lệnh VBA hoạt động chính xác, điều cần thiết là phải điều chỉnh cài đặt macro của bạn trong Outlook. Xin hãy đến Tập tin > Các lựa chọn > Trung tâm tin tưởng > Cài đặt Trung tâm Niềm tin > Cài đặt Macrovà chọn Bật tất cả các macro lựa chọn. Cài đặt này cho phép tập lệnh VBA chạy mà không có bất kỳ hạn chế nào.
Bài viết liên quan
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
📧 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ệ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 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.