如何批量清空所有Outlook電子郵件帳戶中的所有“已刪除郵件”文件夾

如果您在Outlook中配置了多個電子郵件帳戶，並且每個帳戶使用單獨的Outlook數據文件，則將有幾個“已刪除郵件”文件夾。 當您要清空每個電子郵件帳戶中的每個“已刪除郵件”文件夾時，可以利用本文中的VBA代碼段。 它允許您批量清空它們。

眾所周知，Outlook允許用戶添加和配置多個電子郵件帳戶。 另外，如果每個帳戶使用一個單獨的Outlook數據文件，則每個文件都將帶有一個“已刪除郵件”文件夾，該文件夾用於存儲已被刪除的郵件。 當您確認所有“已刪除郵件”文件夾中的郵件均無用時，您將傾向於清空文件夾。 在這種情況下，如果您手動清空它們，可能會非常乏味。 最好使用一個技巧來批量清空它們，就像下面的一樣。

批量清空所有電子郵件帳戶中的所有“已刪除郵件”文件夾

1. 首先，啟動Outlook程序。
2. 然後在Outlook主窗口中按“ Alt + F11”鍵按鈕。
3. 接下來，在“ Microsoft Visual Basic for Applications”窗口中，您需要打開一個空白模塊。
4. 隨後，將以下VBA代碼複製並粘貼到該模塊中。

Sub BatchEmptyAllDeletedItemsFolder()
    Dim objStores As Outlook.Stores
    Dim objStore As Outlook.Store
    Dim objPSTFile As Outlook.Folder
    Dim objFolders As Outlook.folders
    Dim objFolder As Object
 
    Set objStores = Outlook.Application.Session.Stores
 
    'Process all Outlook PST files in your Outlook
    For Each objStore In objStores
        Set objPSTFile = objStore.GetRootFolder
        For Each objFolder In objPSTFile.folders
            Call ProcessFolders(objFolder)
        Next
    Next
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim i, n As Long
 
    If objCurrentFolder.Name = "Deleted Items" Then
       'Delete all the items in "Deleted Items" folder
       For i = objCurrentFolder.Items.Count To 1 Step -1
           objCurrentFolder.Items.Item(i).Delete
 
           'Delete all the subfolders under "Deleted Items" folder
           For n = objCurrentFolder.folders.Count To 1 Step -1
               objCurrentFolder.folders.Item(n).Delete
           Next
       Next
    End If
End Sub

5. 之後，您應該檢查Outlook宏設置，確保Outlook中允許使用宏。
6. 最終，您可以返回該模塊，然後按“ F5”鍵按鈕來運行此宏。
7. 宏運行後，您可以看到所有“已刪除郵件”文件夾已被成功清空。

在Outlook腐敗的情況下

您是否曾經遇到過Outlook崩潰甚至Outlook損壞的情況？ 總的來說，您將如何處理這些可怕的案件？ 如果您使用Outlook已有數十年，則不可避免地會遇到Outlook中的各種問題。 因此，您最好記住一些修復和恢復方式，例如使用收件箱修復工具，定期備份Outlook數據，掌握可靠的功能。 Outlook修復 使用所有這些預防措施，即使PST文件遭到破壞，您仍然可以保持冷靜，並輕鬆地找回Outlook數據。

作者簡介：

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