在 Outlook 中批量标记所有逾期任务已完成的 2 种方法

展望解决方案 2025 年 9 月 29 日
立即分享：

有时，您可能会忘记将任务标记为已完成，这样您的 Outlook 任务文件夹中可能会有许多过期任务。 在这种情况下，您可以使用本文介绍的任何一种方式一次性将所有逾期任务批量标记为完成。

如您所见，一旦任务逾期，就会以醒目的红色显示。然而，Outlook 中之所以会有如此多的逾期任务，通常是因为您忘记将它们标记为已完成。因此，您可能希望批量将所有此类逾期任务标记为已完成。为了解决这个问题，我们将在此介绍两种方法。

在 Outlook 中批量标记所有逾期任务已完成

方法 1：手动设置视图过滤器并标记为完成

  1. 首先，启动 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

立即分享：

评论被关闭。