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

Outlook解決方案 2025 年 9 月 29 日

有時，您可能需要將多個任務合併為一個任務。在新任務中，主體包含所有源任務和s的所有主體。tar日期是任務所有日期中最早的日期，依此類推。現在，本文將教您2種方法。

在處理彼此相關的多個Outlook任務時，您可能需要將它們直接合併到一個任務中。並且新合併的任務應包括所有源任務的主體，並使用所有日期中最早的日期作為start日期和最新日期為到期日，依此類推。現在，在下面，我們將介紹2種方法來快速獲得它。

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

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

設置s時，方法1會很麻煩tar合併任務的日期和截止日期，因為您必須手動查找最早和最晚的日期。在方法2中，您可以徹底擺脫此麻煩。

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

對於作為tart，根據“啟動Outlook VBA編輯器”如何在Outlook中運行VBA代碼“。
然後，添加對“ MS Excel對像庫”的引用rary”，方法是：如何添加對像庫rary 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