outlook子文件夹 服务器,如何从Outlook中打开所有子文件夹？

如何从Outlook中打开所有子文件夹？

如果在Outlook文件夹下创建多个子文件夹，如何立即打开或展开所有这些子文件夹？ 本文，我将为您介绍一个有用的VBA代码，以解决该工作。

使用VBA代码从Outlook中打开或展开所有子文件夹

请应用以下VBA代码以扩展所有Outlook帐户的所有子文件夹：

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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的所有帐户中的所有子文件夹都已扩展，请参见屏幕截图：

自动CC / BCC 根据规则发送电子邮件； 自动转发 自定义多封电子邮件； 自动回复 没有交换服务器，还有更多自动功能...

BCC警告 -当您尝试全部答复时显示消息 如果您的邮件地址在“密件抄送”列表中; 缺少附件时提醒，还有更多提醒功能...

在邮件对话中回复(全部)带有所有附件; 回复许多电子邮件 很快; 自动添加问候语 回复时将日期添加到主题中...

附件工具：管理所有邮件中的所有附件， 自动分离, 全部压缩，全部重命名，全部保存...快速报告， 计算选定的邮件...

强大的垃圾邮件 习俗 删除重复的邮件和联系人... 使您能够在Outlook中做得更聪明，更快和更好。