如何批量刪除 Outlook 中的所有搜索文件夾

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 every 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 檔案並保持最新狀態。此外，為了在發生資料損壞時能夠立即恢復，您也應該做好其他工作。 Outlook損壞，你最好準備一個有說服力且信譽良好的修復工具，例如 DataNumen Outlook Repair.

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 恢復SQL 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM

立即分享：

評論被關閉。