2 быстрых способа объединить несколько задач в одну в Outlook

Перспективные решения 29 сентября, 2025
Поделись сейчас:

Иногда может потребоваться объединить несколько задач в одну. В новой задаче тело содержит все тела всех исходных задач и start — самая ранняя дата среди всех дат задач и так далее. Теперь эта статья научит вас 2 способам.

При работе с несколькими задачами Outlook, которые коррелируют друг с другом, вы можете напрямую объединить их в одну задачу. И новая объединенная задача должна включать все тела исходных задач и использовать самую раннюю дату из всех дат в качестве s.tart дата и последняя дата в качестве срока и так далее. Теперь в дальнейшем мы представим 2 средства, чтобы быстро получить его.

Способ 1: объединить несколько задач вручную

  1. Во-первых, создайте новую задачу.
  2. Затем в новой задаче перейдите на вкладку «Вставка» и нажмите кнопку «Элементы Outlook».
  3. Далее во всплывающем окне выберите задачи, которые хотите объединить.
  4. А затем выберите опцию «Только текст» в поле «Вставить как».Вставить задачи только как текст
  5. После этого нажмите кнопку «ОК».
  6. Позже информация о задачах будет вставлена ​​в тело новой задачи.
  7. Теперь вам нужно вручную найти самую раннюю и самую позднюю дату среди всех дат в теле.
  8. Далее измените сtart и срок выполнения текущей задачи.Вручную изменить Start и срок оплаты
  9. Наконец, сохраните эту задачу как обычно.

Метод 1 будет довольно проблематичным при установке start дата и срок выполнения объединенной задачи, поскольку вам нужно вручную найти самую раннюю и самую позднюю дату. В Способе 2 можно основательно избавиться от этой неприятности.

Способ 2: объединить несколько задач через VBA

  1. Для насtart, запустите редактор Outlook VBA в соответствии с «Как запустить код VBA в Outlook».
  2. Затем добавьте ссылку на «MS Excel Object Librarу», прочитав «Как добавить объектную библиотекуrary Ссылка в 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
  • Сразу же отобразится новая задача, которая содержит все тела исходных задач в теле и использует самую раннюю дату в качестве s.tart, самая поздняя дата в качестве срока выполнения, как показано на следующем снимке экрана.Объединенная задача из нескольких задач

Настаивайте на регулярном создании резервных копий PST

Если вы не хотите потерять ценные данные Outlook, рекомендуется регулярно делать резервные копии файлов Outlook PST. Только таким образом, страдая от повреждения PST, вы сможете избавиться от сложных ремонт PST, что может быть достигнуто только с помощью надежного инструмента, такого как DataNumen Outlook Repair.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая восстановить sql и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com

Поделись сейчас:

Комментарии закрыты.