標記完成後如何自動刪除Outlook任務

Outlook解決方案 2025 年 9 月 29 日
立即分享：

默認情況下，已標記為完成的任務仍將存在於“任務”文件夾中。 如果希望Outlook自動刪除已完成的任務，則可以使用本文介紹的方法。

如您所見，將Outlook任務標記為完成後，該任務將以灰色的刪除線字體顯示。 但是它仍然存在於“任務”文件夾中，與未完成的任務混在一起。 這樣，您的任務可能會變得雜亂無章。 因此，許多用戶希望Outlook在標記為完成後可以自動刪除任務。 現在，在下面，我們將與您分享一種相關的方法。

標記完成後自動刪除Outlook任務

標記完成後自動刪除Outlook任務

  1. 首先，啟動 Outlook 程式。
  2. 然後在Outlook主屏幕中，應按“ Alt + F11”鍵按鈕。
  3. 隨後，在“ Microsoft Visual Basic for Applications”窗口中，將要求您找到並打開“ ThisOutlookSession”項目。
  4. 接下來，您必須將以下VBA代碼複製到該項目中。
Public WithEvents objTasks As Outlook.Items
Public WithEvents objDeletedItems As Outlook.Items

Private Sub Application_Startup()
    Set objTasks = Outlook.Application.Session.GetDefaultFolder(olFolderTasks).Items
    Set objDeletedItems = Application.Session.GetDefaultFolder(olFolderDeletedItems).Items
End Sub

Private Sub objTasks_ItemChange(ByVal Item As Object)
    Dim objTask As Outlook.TaskItem
 
    If TypeOf Item Is TaskItem Then
       Set objTask = Item
       'After marking the task complete
       If objTask.Complete = True Then
          'Delete it
          objTask.Delete
       End If
    End If
End Sub

'Permanently delete the task
Private Sub objDeletedItems_ItemAdd(ByVal Item As Object)
    If Item.Class = olTask Then
       Item.Delete
    End If
End Sub

VBA代碼-標記完成後自動刪除Outlook任務

  1. 之後，您需要為該新的VBA項目分配數字證書。
  • 只需單擊工具欄中的“工具”即可。
  • 然後從下拉列表中選擇“數字簽名”。
  • 在彈出對話框中，按照屏幕上的說明完成操作。
  1. 以後，您應該更改Outlook宏設置，以允許已簽名的VBA項目。
  2. 最後，您需要重新啟動 Outlook 以啟動新的 VBA 程式碼。
  3. 從現在開始，每當您將任務標記為完成時，該任務將被自動永久刪除。

借助出色的維修工具

老實說，Outlook為用戶提供了許多出色的功能。 但是，這並不意味著它是完美的。 它具有致命的漏洞。 它易於出錯和損壞。 因此，如果您想保護Outlook文件免受損壞，最好定期備份PST文件。 另外，明智的做法是投資於知名且可靠的 Outlook恢復 實用程序，例如 DataNumen Outlook Repair.

作者簡介：

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

立即分享：

評論被關閉。