2 szybkie metody łączenia wielu zadań w jedno w programie Outlook

Czasami może zaistnieć potrzeba scalenia wielu zadań w jedno. W nowym zadaniu treść zawiera wszystkie treści wszystkich zadań źródłowych, a data rozpoczęcia to najwcześniejsza data spośród wszystkich dat zadań itd. W tym artykule dowiesz się dwóch sposobów.

W przypadku wielu zadań w programie Outlook, które są ze sobą powiązane, warto je bezpośrednio scalić w jedno. Nowe, scalone zadanie powinno zawierać treści wszystkich zadań źródłowych i używać najwcześniejszej daty spośród wszystkich dat jako daty rozpoczęcia, a najpóźniejszej daty jako daty wykonania itd. Poniżej przedstawimy dwa sposoby szybkiego scalania.

Metoda 1: ręczne łączenie wielu zadań

1. W pierwszej kolejności utwórz nowe zadanie.
2. Następnie w nowym zadaniu przejdź do zakładki „Wstaw” i kliknij przycisk „Elementy programu Outlook”.
3. Następnie w wyskakującym oknie wybierz zadania, które chcesz scalić.
4. A następnie wybierz opcję „Tylko tekst” w polu „Wstaw jako”.
5. Następnie kliknij przycisk „OK”.
6. Później informacje o zadaniach zostaną wstawione do treści nowego zadania.
7. Teraz musisz ręcznie znaleźć najwcześniejszą i najpóźniejszą datę spośród wszystkich dat w treści.
8. Następnie zmień datę rozpoczęcia i zakończenia bieżącego zadania.
9. Na koniec zapisz to zadanie jak zwykle.

Metoda 1 będzie dość kłopotliwa przy ustawianiu daty rozpoczęcia i zakończenia scalonego zadania, ponieważ trzeba ręcznie znaleźć datę najwcześniejszą i najpóźniejszą. Metoda 2 pozwala całkowicie pozbyć się tego problemu.

Metoda 2: Połącz wiele zadań za pomocą VBA

1. Na początek uruchom edytor VBA programu Outlook zgodnie z poleceniem „Jak uruchomić kod VBA w swoim Outlooku".
2. Następnie dodaj odniesienie do „Biblioteki obiektów MS Excel” poprzez przeczytanie „Jak dodać odwołanie do biblioteki obiektów w języku VBA".
3. Później skopiuj następujący kod do modułu.

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. Następnie dodaj to makro do paska narzędzi szybkiego dostępu lub wstążki.
5. Wreszcie możesz spróbować.

• Najpierw wybierz zadania do połączenia.
• Następnie kliknij przycisk makro.
• Natychmiast zostanie wyświetlone nowe zadanie zawierające w sobie treść wszystkich oryginalnych zadań, przy czym najwcześniejsza data jest datą rozpoczęcia, a najpóźniejsza data jest datą wykonania, jak pokazano na poniższym zrzucie ekranu.

Nalegaj na regularne tworzenie kopii zapasowych PST

Jeśli nie chcesz stracić cennych danych programu Outlook, zalecamy regularne tworzenie kopii zapasowych plików PST programu Outlook. Tylko w ten sposób, gdy cierpisz na korupcję PST, możesz pozbyć się trudnego Naprawa PST, co można osiągnąć tylko za pomocą solidnego narzędzia, takiego jak DataNumen Outlook Repair.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym naprawa sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com