Bỏ qua nội dung chính

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

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ải 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:

  1. Ấ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ổ.
  2. Mở rộng Dự án 1Đố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
  3. 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.

mũi tên màu xanh bong bóng bên phải 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

🤖 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 (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Just tried this on Microsoft® Outlook® for Microsoft 365 MSO (Version 2310 Build 16.0.16924.20054) 64-bit and it was unsuccessful
This comment was minimized by the moderator on the site
Hi there,

Please go to File > Options > Trust Center > Trust Center Settings > Macro Settings. And select the Enable all macros option. After making this change, restart Outlook, the macro should then be operational.
This comment was minimized by the moderator on the site
Hi guys,

does this code also work for Microsoft outlook 365?
I have tried and tried again, but I get no results.
Thanks.
This comment was minimized by the moderator on the site
I couldn't get this macro to work either.
This comment was minimized by the moderator on the site
Hi there,
We've updated the code, please try it again. 🙂
Amanda
This comment was minimized by the moderator on the site
I cannot get this macro to work at all.  All folders in the Folder pane are not expanded at all.  I am using Outlook 2021.  Is there some instruction I missed?
This comment was minimized by the moderator on the site
Hi there,
We've updated the code, please try it again. 🙂
Amanda
This comment was minimized by the moderator on the site
Thank you so much.. It solved my problem. :)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations