Outlookで複数のタスクを2つにマージするXNUMXつの簡単な方法

Outlookソリューション 2025 年 9 月 29 日
今すぐ共有：

場合によっては、複数のタスクをXNUMXつのタスクにマージする必要があります。 新しいタスクでは、本体にはすべてのソースタスクのすべての本体が含まれています。tart日付は、タスクなどのすべての日付の中で最も早い日付です。 さて、この記事では2つの方法を説明します。

相互に関連する複数のOutlookタスクを処理する場合は、それらをXNUMXつのタスクに直接マージすることをお勧めします。 また、新しくマージされたタスクには、すべてのソースタスクの本体が含まれ、すべての日付の中で最も早い日付がsとして使用されます。tar期日としての日付と最新の日付など。 さて、以下では、それを素早く手に入れるための2つの手段を紹介します。

方法1：複数のタスクを手動でマージする

  1. まず、新しいタスクを作成します。
  2. 次に、新しいタスクで、[挿入]タブに移動し、[Outlookアイテム]ボタンをクリックします。
  3. 次に、ポップアップウィンドウで、マージするタスクを選択します。
  4. 次に、[名前を付けて挿入]ボックスで[テキストのみ]オプションを選択します。タスクをテキストのみとして挿入
  5. その後、「OK」ボタンをクリックしてください。
  6. 後で、タスクの情報が新しいタスクの本体に挿入されます。
  7. ここで、本文のすべての日付の中から最も早い日付と最も遅い日付を手動で見つける必要があります。
  8. 次に、を変更しますtartと現在のタスクの期日。Sを手動で変更するtartと期日
  9. 最後に、通常どおりこのタスクを保存します。

方法1は、sを設定するときに非常に面倒になりますtarマージされたタスクの日付と期日。最も早い日付と最も遅い日付を手動で見つける必要があります。 方法2では、この問題を完全に取り除くことができます。

方法2：VBAを介して複数のタスクをマージする

  1. としてtart、「次のようにOutlookVBAエディターを起動します。OutlookでVBAコードを実行する方法"
  2. 次に、「MS Excel ObjectLib」への参照を追加しますrar「y」を読んでオブジェクトライブラリを追加する方法raryVBAでの参照"
  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コード-複数のタスクをXNUMXつにマージ

  1. 次に、このマクロをクイックアクセスツールバーまたはリボンに追加します。
  2. 最後に、試してみることができます。
  • まず、マージするタスクを選択します。
  • 次に、マクロボタンをクリックします。VBAを介して複数のタスクをマージする
  • すぐに、新しいタスクが表示されます。これは、元のタスクのすべての本体を本体に含み、最も早い日付をsとして使用します。tar次のスクリーンショットに示すように、t日付、期日としての最新の日付。複数のタスクからマージされたタスク

定期的なPSTバックアップの作成を主張する

貴重なOutlookデータを失いたくない場合は、OutlookPSTファイルの定期的なバックアップを作成することをお勧めします。 この方法でのみ、PSTの破損に苦しんでいるときに、困難を取り除くことができます PST修復、などの堅牢なツールを介してのみ達成できます DataNumen Outlook Repair.

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 SQLを修復します と見通し修理ソフトウェア製品。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com

今すぐ共有：

コメントは締め切りました。