在 Outlook 中批量標記所有過期任務已完成的 2 種方法

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

有時，您可能忘記將任務標記為完成，因此 Outlook 任務文件夾中可能存在許多過期任務。 在這種情況下，您可以使用本文介紹的任一方式將所有過期任務一次性標記為完成。

可以看到，一旦任務過期，就會顯示為紅色，非常醒目。 然而，米ost 有時，您的 Outlook 中存在如此多逾期任務的原因是您忘記將它們標記為完成。 因此，您通常可能希望將所有此類逾期任務批量標記為完成。 為了看待這個問題，這裡我們教大家2個手段。

在 Outlook 中批量標記所有逾期任務已完成

方法 1：手動設置視圖過濾器並標記為完成

  1. 到tar然後，啟動 Outlook 並轉到“任務”窗格。
  2. 然後打開特定的任務文件夾。
  3. 接下來切換到“查看”選項卡並點擊“查看設置”按鈕。
  4. 在新彈出的對話框中，單擊“過濾”。 這將打開第二個對話框。
  5. 隨後，切換到“高級”選項卡，然後添加特定的過濾器 - “截止日期在昨天或之前”，如下圖所示。設置視圖過濾器
  6. 之後，單擊一系列“確定”以激活新的視圖過濾器並返回主任務窗格。
  7. 現在您將看到列表中僅顯示過期的任務。 您可以單擊其中一個，然後按“Ctrl + A”選擇全部。
  8. 最後，單擊“主頁”選項卡下的“標記完成”按鈕。完成標記

通過這種方式，如果您有多個任務文件夾，則應分別手動為每個任務文件夾設置視圖過濾器。 這會非常乏味。 因此，建議使用以下方式，快速將所有Tasks文件夾中的所有過期任務批量標記為完成。

方法 2：使用 Outlook VBA 標記完成

  1. 首先，在 Outlook 主窗口中按“Alt + F11”鍵按鈕。
  2. 然後在 Outlook VBA 編輯器中，將以下 VBA 代碼複製並粘貼到空模塊窗口中。
Sub BatchMarkAllOverdueTasksComplete()
    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 = Application.Session.Stores
  
    'Process All PST Files
    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 obTasks As Outlook.Items
    Dim objTask As Outlook.TaskItem
    Dim objSubfolder As Outlook.Folder
 
    'Find the overdue tasks and mark complete
    If objCurrentFolder.DefaultItemType = olTaskItem Then
       Set objTasks = objCurrentFolder.Items
       For Each objTask In objTasks
           If (objTask.DueDate < Date) And (objTask.Complete = False) Then
              objTask.MarkComplete
           End If
       Next
    End If
 
    'Process all Task folders recursively
    If objCurrentFolder.folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

VBA代碼-批量標記所有逾期任務已完成

  1. 之後，您應該確保 Outlook 允許宏設置中的宏。
  2. 最後，大家可以嘗試一下。 單擊進入“BatchMarkAllOverdueTasksComplete”子例程並按 F5 鍵運行它。
  3. 立即，所有任務文件夾中的所有逾期任務將被批量標記為完成。

避免 PST 數據丟失的提示

由於 Outlook PST 文件很容易出錯和損壞，因此需要您付出很大的努力來保護您的 PST 數據。 首先，您應該定期備份PST文件，這將節省您的時間 維修PST 如果發生 PST 損壞。 此外，提前準備一個有效的修復工具也是明智的，比如 DataNumen Outlook Repair.

作者簡介：

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

立即分享：

評論被關閉。