Cookies幫助我們提供服務。 使用我們的服務即表示您同意我們使用cookies。
提示:其他語言是Google翻譯的。 你可以訪問 English 版本。
登入
x
or
x
x
註冊
x

or

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

如果在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 Error On Resume Next如果CurFolder.DefaultItemType <> olMailItem則退出Sub Set Application.ActiveExplorer.CurrentFolder = CurFolder DoEvents If CurFolder.Folders.Count = 0然後在CurFolder.Folders中為每個xSubfolder退出Sub調用ProcessFolders(xSubfolder)Next End Sub

3。 然後按 F5 運行此代碼的密鑰,並且Outlook的所有帳戶中的所有子文件夾都已展開,請參見屏幕截圖:

doc展開子文件夾1



Kutools for Outlook

超過100高級功能的Outlook 2010,2013,2016,2019和365

屏幕截圖kutools for outlook tiny for banner 201812

更多功能 | 免費下載 | 只有$ 39.00數百個函數

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.