跳到主要內容
 

如何從Outlook中打開所有子文件夾?

作者:小陽 最後修改時間:2024-08-21

如果在Outlook文件夾下創建多個子文件夾,如何立即打開或展開所有這些子文件夾? 本文,我將為您介紹一個有用的VBA代碼,以解決該工作。

使用VBA代碼從Outlook打開或展開所有子文件夾


使用VBA代碼從Outlook打開或展開所有子文件夾

請應用以下VBA代碼以擴展所有Outlook帳戶的所有子文件夾:

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。 點擊 插入 > 模塊,然後將以下宏粘貼到“模塊窗口”中。

VBA代碼:從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。 然後按 F5 鍵來運行此代碼,並且Outlook的所有帳戶中的所有子文件夾都已擴展,請參見屏幕截圖:

doc擴展子文件夾1

最佳辦公生產力工具

突發新聞:Kutools for Outlook 發布 免費版本!

體驗全新的Kutools for Outlook 免費版本擁有 70 多個令人難以置信的功能,您可以永遠使用! 點擊立即下載!

🤖 Kutools人工智慧 : 使用先進的人工智慧技術輕鬆處理電子郵件,包括回覆、總結、優化、擴展、翻譯和撰寫電子郵件。

📧 電子郵件自動化: 自動回覆(適用於 POP 和 IMAP)  /  安排發送電子郵件  /  發送電子郵件時按規則自動抄送/密件副本  /  自動轉送(進階規則)   /  自動添加問候語   /  自動將多收件者電子郵件拆分為單獨的訊息 ...

📨 電子郵件管理: 撤回電子郵件  /  按主題和其他人阻止詐騙電子郵件  /  刪除重複的電子郵件  /  進階搜索  /  合併資料夾 ...

📁 附件專業版批量保存  /  批量分離  /  批量壓縮  /  自動保存   /  自動分離  /  自動壓縮 ...

🌟 介面魔法: 😊更多又漂亮又酷的表情符號   /  當重要電子郵件到來時提醒您  /  最小化 Outlook 而不是關閉 ...

👍 一鍵奇蹟: 使用傳入附件回覆全部  /   反網路釣魚電子郵件  /  🕘顯示寄件者的時區 ...

👩🏼‍🤝‍👩🏻 通訊錄和行事曆: 從選定的電子郵件中大量新增聯絡人  /  將聯絡人群組拆分為各組  /  刪除生日提醒 ...

只需單擊即可立即解鎖 Kutools for Outlook -永久免費。不要等待,立即下載並提高您的效率!

Outlook 的 kutools 功能1 Outlook 的 kutools 功能2