如何批量删除 Outlook 中的所有搜索文件夹

展望解决方案 2025 年 9 月 29 日
立即分享：

默认情况下，Outlook 不允许用户一次性删除多个搜索文件夹，更不用说批量删除所有搜索文件夹了。 但是这篇文章给大家分享一个方法，可以实现。

通常，要删除搜索文件夹，您可以右键单击一个文件夹并从其上下文菜单中选择“删除文件夹”选项。 这样，当您需要删除所有搜索文件夹时，您一定会觉得很繁琐。 您一定希望一次删除所有这些。 所以，在这里我们就给大家介绍一个方法，可以帮助您轻松完成删除操作。

批量删除 Outlook 中的所有搜索文件夹

批量删除所有搜索文件夹

  1. 一开始，您应该正常启动 Outlook。
  2. 然后，在访问主 Outlook 屏幕后，您必须按“Alt + F11”键按钮。
  3. 您将立即进入“Microsoft Visual Basic for Applications”窗口。
  4. 随后，您需要找到并打开一个未使用的模块。
  5. 接下来，您可以将以下 VBA 代码复制并粘贴到该模块中。
Sub BatchDeleteAllSearchFolders()
    Dim objStores As Outlook.Stores
    Dim objStore As Outlook.store
    Dim objSearchFolders As Outlook.Folders
    Dim objSearchFolder As Outlook.Folder

    On Error Resume Next
    Set objStores = Outlook.Application.Session.Stores
 
    For Each objStore In objStores
        'Get all search folders under each Outlook data file
        Set objSearchFolders = objStore.GetSearchFolders
        For Each objSearchFolder In objSearchFolders
            'Delete each search folder
            objSearchFolder.Delete
        Next
    Next
End Sub

VBA 代码 - 批量删除 Outlook 中的所有搜索文件夹

备注：

  • 也许您已经在 Outlook 中配置了多个电子邮件帐户。 每个都有自己的 PST 文件。 在每个文件中，您可以创建一些搜索文件夹。 通过上面的代码，将删除所有搜索文件夹，无论它们位于什么文件中。
  • 如果您想指定一个 Outlook 数据文件，您可以在“For each objStore In objStores”下添加以下行。 在这里，您应该将“John Smith”更改为您自己的 PST 文件的显示名称。
If objStore.DisplayName = "John Smith" Then
 . . . . . . . . . . . . . . .
End If
  1. 之后，您应该将 Outlook 宏安全级别更改为低。
  2. 最后，在“Microsoft Visual Basic for Applications”窗口中，要运行这个宏，您可以单击按 F5 键按钮。
  3. 宏完成后，您会发现 Outlook 中的所有搜索文件夹都已删除。

保护您的 Outlook 数据

由于 Outlook 容易出现数据损坏，您应该尽一切努力保护 Outlook 数据的安全。毫无疑问，最关键的方法之一是定期备份 Outlook 文件并保持最新状态。此外，为了在发生数据损坏时能够立即恢复，您还应该做好其他工作。 前景腐败，你最好准备一个有说服力的、信誉良好的修复工具，比如 DataNumen Outlook Repair.

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 恢复sql 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com

立即分享：

评论被关闭。