如何在 Outlook 中自動將已刪除的郵件標記為已讀？

當您在 Microsoft Outlook 中刪除一封未讀郵件時，該郵件會移至「已刪除郵件」資料夾，並維持未讀狀態。在某些情況下，您可能希望自動將已刪除的郵件標記為已讀，以便順利執行規則或其他用途。本文將為您介紹在 Microsoft Outlook 中將已刪除郵件自動標記為已讀的實用方法。

手動將所有已刪除郵件標記為已讀

一鍵自動立即標記刪除項目為已讀

使用 VBA 自動將已刪除的郵件標記為已讀

---

手動將所有已刪除郵件標記為已讀

在 Microsoft Outlook 中，使用者可輕鬆將整個郵件資料夾（包含「已刪除郵件」資料夾）全部標記為已讀。

刪除郵件後，請在導航窗格中選取「已刪除郵件」資料夾，按一下滑鼠右鍵，然後從快捷功能表中選擇「全部標記為已讀」，如下圖所示：

---

一鍵自動立即標記刪除項目為已讀

若您希望將子資料夾中的已刪除郵件標記為已讀，或在刪除郵件時自動將其標記為已讀，該如何實現？此時，「Kutools for Outlook」的「刪除時標記為已讀」功能正是您的理想選擇！

1. 點選「KUTOOLS PLUS」>「公用程式」>「標記為已讀」>「啟用標記為已讀」。

系統將彈出對話方塊，詢問您是否要包含子資料夾。請點選「是」，即可將主資料夾及其子資料夾中所有已刪除的郵件標記為已讀；若點選「否」，則僅處理主資料夾，排除子資料夾。

接著會彈出確認對話方塊，通知您所有已刪除的郵件均已標記為已讀。

此外，所有刪除後移至「已刪除郵件」資料夾的未讀郵件，都會自動標記為已讀。

---

使用 VBA 自動將已刪除的郵件標記為已讀

本節將介紹一個 VBA 巨集，可在刪除郵件時自動將所有已刪除的郵件標記為已讀。

步驟 1：同時按下「Alt」+「F11」，即可開啟 Microsoft Visual Basic for Applications 視窗。

步驟 2：在左側窗格中展開「Project 1」，然後雙擊「ThisOutlookSession」以開啟空白程式碼視窗。

步驟 3：將下列 VBA 程式碼貼到空白視窗中。

VBA：自動將已刪除的郵件標記為已讀

Dim WithEvents g_OlkFolder As Outlook.Items
Private Sub Application_Quit()
Set g_OlkFolder = Nothing
End Sub
Private Sub Application_Startup()
Set g_OlkFolder = Session.GetDefaultFolder(olFolderDeletedItems).Items
End Sub
Private Sub g_OlkFolder_ItemAdd(ByVal Item As Object)
Item.UnRead = False
Item.Save
End Sub

步驟 4：儲存 VBA 巨集，然後重新啟動 Microsoft Outlook。

注意：此 VBA 巨集僅適用於 Microsoft Outlook 2013，且僅會立即將預設資料檔案中的已刪除項目標記為已讀。

從現在起，當您透過手動或自動規則刪除郵件時，這些未讀的已刪除郵件將立即在「已刪除郵件」資料夾中標記為已讀。