Někdy může být potřeba sloučit více úkolů do jednoho. V novém úkolu tělo obsahuje všechna těla všech zdrojových úkolů a datum zahájení je nejstarší datum ze všech dat úkolů atd. Tento článek vás nyní naučí 2 způsoby.
Pokud pracujete s více úkoly aplikace Outlook, které spolu souvisejí, můžete je chtít přímo sloučit do jednoho úkolu. Nový sloučený úkol by měl zahrnovat všechny zdrojové úkoly a jako datum zahájení by měl použít nejstarší datum ze všech dat, jako datum splnění by měl použít nejnovější datum atd. Nyní si ukážeme 2 způsoby, jak toho rychle dosáhnout.
Metoda 1: Ruční sloučení více úkolů
- Nejprve vytvořte nový úkol.
- Poté v nové úloze přejděte na kartu „Vložit“ a klikněte na tlačítko „Položky aplikace Outlook“.
- Dále ve vyskakovacím okně vyberte úkoly, které chcete sloučit.
- A poté vyberte možnost „Pouze text“ v poli „Vložit jako“.
- Poté klikněte na tlačítko „OK“.
- Později budou informace o úkolech vloženy do těla nového úkolu.
- Nyní musíte ručně najít nejstarší a nejnovější datum mezi všemi daty v těle.
- Dále změňte datum zahájení a splnění aktuálního úkolu.
- Nakonec tento úkol uložte jako obvykle.
Metoda 1 bude při nastavování data zahájení a data splnění sloučeného úkolu poměrně problematická, protože budete muset ručně najít nejstarší a poslední datum. Metoda 2 se tohoto problému můžete zcela zbavit.
Metoda 2: Sloučit více úkolů prostřednictvím VBA
- Pro začátek spusťte editor VBA v Outlooku podle „Jak spustit kód VBA ve vašem Outlooku".
- Poté přidejte odkaz na „Knihovnu objektů MS Excel“ ve tvaru „Jak přidat odkaz na knihovnu objektů ve VBA".
- Později zkopírujte následující kód do modulu.
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
- Dále přidejte toto makro na panel nástrojů Rychlý přístup nebo na pás karet.
- Nakonec to můžete vyzkoušet.
- Nejprve vyberte úkoly, které chcete sloučit.
- Poté klikněte na tlačítko makra.
- Okamžitě se zobrazí nový úkol, který bude obsahovat všechna těla původních úkolů a jako datum zahájení použije nejstarší datum a jako datum splnění nejnovější, jak je znázorněno na následujícím snímku obrazovky.
Trvejte na vytváření pravidelných záloh PST
Pokud nechcete ztratit svá cenná data aplikace Outlook, doporučujeme pravidelně zálohovat soubory PST aplikace Outlook. Pouze tímto způsobem, když trpí korupcí PST, můžete se zbavit obtížné Oprava PST, což lze provést pouze pomocí robustního nástroje, jako je např DataNumen Outlook Repair.
Úvod autora:
Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně oprava sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com