在 Outlook 中将多个任务合并为一个任务的 2 种快速方法

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

有时，您可能需要将多个任务合并为一个任务。在新任务中，任务主体包含所有源任务的内容，开始日期为所有源任务日期中最早的日期，依此类推。本文将介绍两种方法。

当处理多个相互关联的 Outlook 任务时，您可能希望将它们直接合并为一个任务。合并后的新任务应包含所有源任务的内容，并以最早的日期作为开始日期，最晚的日期作为截止日期，依此类推。接下来，我们将介绍两种快速实现合并的方法。

方法一：手动合并多个任务

  1. 首先，创建一个新任务。
  2. 然后，在新任务中，转到“插入”选项卡并单击“Outlook 项目”按钮。
  3. 接下来，在弹出窗口中，选择要合并的任务。
  4. 然后在“插入为”框中选择“仅文本”选项。仅以文本形式插入任务
  5. 之后，单击“确定”按钮。
  6. 稍后，任务的信息将被插入到新任务的主体中。
  7. 现在，您需要手动查找正文中所有日期中最早和最晚的日期。
  8. 接下来，更改当前任务的开始日期和截止日期。手动更改开始日期和截止日期
  9. 最后，照常保存此任务。

方法一在设置合并任务的开始日期和截止日期时会比较麻烦，因为您需要手动查找最早和最晚的日期。而方法二则可以彻底解决这个问题。

方法二：通过VBA合并多个任务

  1. 首先，按照以下步骤启动 Outlook VBA 编辑器：“如何在 Outlook 中运行 VBA 代码“。
  2. 然后，通过阅读以下内容添加对“MS Excel 对象库”的引用：“如何在 VBA 中添加对象库引用“。
  3. 稍后，将以下代码复制到模块中。
Sub MergeMultipleTasksIntoOne()
    Dim objSelection As Outlook.Selection
    Dim objMergedTask As Outlook.TaskItem
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim dStartDate As Date
    Dim dDueDate As Date
 
    Set objMergedTask = Outlook.Application.CreateItem(olTaskItem)
 
    Set objExcelApp = CreateObject("Excel.Application")
    objExcelApp.Visible = True
    Set objExcelWorkbook = objExcelApp.Workbooks.Add
    Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
    For i = 1 To objSelection.Count
        nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row
        objExcelWorksheet.Cells(nLastRow, 1) = objSelection(i).StartDate
        objExcelWorksheet.Cells(nLastRow + 1, 1) = objSelection(i).DueDate
 
        objMergedTask.Body = objMergedTask.Body & objSelection(i).Body & vbCrLf & vbCrLf & "==================================" & vbCrLf & vbCrLf
 
        objMergedTask.Attachments.Add objSelection(i)
    Next
 
    'Get the Min and Max Date via Excel Function
    dStartDate = objExcelApp.WorksheetFunction.Min(Columns("A"))
    dDueDate = objExcelApp.WorksheetFunction.Max(Columns("A"))
 
    objMergedTask.StartDate = CDate(dStartDate)
    objMergedTask.DueDate = CDate(dDueDate)
    objMergedTask.Display
 
    objExcelWorkbook.Close False
    objExcelApp.Quit
End Sub

VBA 代码 - 将多个任务合并为一个任务

  1. 接下来，将此宏添加到快速访问工具栏或功能区。
  2. 最后，你可以试试看。
  • 首先，选择要合并的任务。
  • 然后，单击宏按钮。通过 VBA 合并多个任务
  • 立即显示一个新任务，其中包含所有原始任务的主体内容，并使用最早的日期作为开始日期，最晚的日期作为截止日期，如下面的屏幕截图所示。来自多个任务的合并任务

坚持定期进行 PST 备份

如果您不想丢失宝贵的 Outlook 数据，建议您定期备份 Outlook PST 文件。 只有这样，在遭受 PST 损坏时，您才能摆脱困难 PST修复，这只能通过强大的工具来完成，例如 DataNumen Outlook Repair.

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 修复sql 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com

立即分享：

评论被关闭。