在Outlook中將多個任務合併為一個的2種快速方法

Outlook解決方案 2025 年 9 月 29 日

有時，您可能需要將多個任務合併為一個任務。在新任務中，任務主體包含所有來源任務的內容，開始日期為所有來源任務日期中最早的日期，依此類推。本文將介紹兩種方法。

當處理多個相互關聯的 Outlook 任務時，您可能想要將它們直接合併為一個任務。合併後的新任務應包含所有來源任務的內容，並以最早的日期作為開始日期，最晚的日期作為截止日期，依此類推。接下來，我們將介紹兩種快速實作合併的方法。

方法1：手動合併多個任務

首先，創建一個新任務。
然後，在新任務中，轉到“插入”選項卡，然後單擊“ Outlook項目”按鈕。
接下來，在彈出窗口中，選擇要合併的任務。
然後在“插入為”框中選擇“僅文本”選項。
之後，單擊“確定”按鈕。
以後，任務的信息將被插入到新任務的主體中。
現在，您需要手動查找正文中所有日期中最早和最晚的日期。
接下來，變更目前任務的開始日期和截止日期。
最後，照常保存此任務。

方法一在設定合併任務的開始日期和截止日期時會比較麻煩，因為您需要手動尋找最早和最晚的日期。而方法二則可以徹底解決這個問題。

方法2：通過VBA合併多個任務

首先，請按照下列步驟啟動 Outlook VBA 編輯器：「如何在Outlook中運行VBA代碼“。
然後，透過閱讀以下內容來新增對“MS Excel 物件庫”的引用：“如何在 VBA 中新增物件庫引用“。
稍後，將以下代碼複製到模塊中。

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