Cookies帮助我们提供我们的服务。 通过使用我们的服务,您同意我们使用Cookie。
提示:其他语言是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.