2 Швидкі методи об’єднання кількох завдань в одне ціле у вашому Outlook

Іноді може знадобитися об’єднати кілька завдань в одне. У новому завданні тіло містить усі тіла всіх вихідних завдань, а дата початку – це найдавніша дата серед усіх дат завдань тощо. У цій статті ви дізнаєтесь про два способи.

Якщо у вас є кілька пов'язаних між собою завдань Outlook, можливо, ви захочете об'єднати їх в одне завдання. Нове об'єднане завдання має містити всі частини вихідних завдань та використовувати найдавнішу дату серед усіх дат як дату початку, а найпізнішу – як дату виконання тощо. Далі ми розглянемо 2 способи швидкого отримання результату.

Спосіб 1: Об’єднайте кілька завдань вручну

1. Перш за все, створіть нове завдання.
2. Потім у новому завданні перейдіть на вкладку «Вставка» та натисніть кнопку «Елементи Outlook».
3. Далі у спливаючому вікні виберіть завдання, які потрібно об’єднати.
4. А потім виберіть опцію «Лише текст» у полі «Вставити як».
5. Після цього натисніть кнопку «ОК».
6. Пізніше інформація про завдання буде вставлена ​​в тіло нового завдання.
7. Тепер вам потрібно вручну знайти найранішу та найпізнішу дату серед усіх дат в тілі.
8. Далі змініть дату початку та термін виконання поточного завдання.
9. Нарешті, збережіть це завдання, як зазвичай.

Метод 1 буде досить проблематичним під час встановлення дати початку та терміну виконання об'єднаного завдання, оскільки вам доведеться вручну знаходити найпершу та найпізнішу дату. У методі 2 ви можете повністю позбутися цієї проблеми.

Спосіб 2: Об’єднання кількох завдань за допомогою VBA

1. Для початку запустіть редактор Outlook VBA відповідно до «Як запустити код VBA у своєму Outlook».
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

4. Потім додайте цей макрос на панель швидкого доступу або стрічку.
5. Нарешті, можна спробувати.

• Спочатку виберіть завдання, які потрібно об’єднати.
• Потім натисніть кнопку макросу.
• Відразу ж відобразиться нове завдання, яке міститиме всі тіла оригінальних завдань, а найдавніша дата використовуватиметься як дата початку, а найпізніша – як дата виконання, як показано на наступному знімку екрана.

Наполягайте на регулярних резервних копіях PST

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

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі ремонт кв та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com