Niekedy možno budete musieť zlúčiť viacero úloh do jednej. V novej úlohe telo obsahuje všetky telá všetkých zdrojových úloh a dátum začiatku je najskorší dátum spomedzi všetkých dátumov úloh atď. Tento článok vás teraz naučí 2 spôsoby.
Pri práci s viacerými úlohami programu Outlook, ktoré sú navzájom prepojené, ich možno budete chcieť priamo zlúčiť do jednej úlohy. Nová zlúčená úloha by mala obsahovať všetky telá zdrojových úloh a ako dátum začiatku by mala použiť najstarší dátum zo všetkých dátumov, ako dátum dokončenia najnovší dátum atď. V nasledujúcom texte si predstavíme 2 spôsoby, ako to rýchlo dosiahnuť.
Metóda 1: Ručné zlúčenie viacerých úloh
- V prvom rade vytvorte novú úlohu.
- Potom sa v novej úlohe obráťte na kartu „Vložiť“ a kliknite na tlačidlo „Položky programu Outlook“.
- Ďalej vo vyskakovacom okne vyberte úlohy, ktoré chcete zlúčiť.
- Potom v poli „Vložiť ako“ vyberte možnosť „Iba text“.
- Potom kliknite na tlačidlo „OK“.
- Neskôr budú informácie o úlohách vložené do tela novej úlohy.
- Teraz musíte ručne vyhľadať najskorší a najaktuálnejší dátum zo všetkých dátumov v tele.
- Ďalej zmeňte začiatok a dátum dokončenia aktuálnej úlohy.
- Nakoniec túto úlohu uložte ako obvykle.
Metóda 1 bude dosť problematická pri nastavovaní dátumu začiatku a dátumu dokončenia zlúčenej úlohy, pretože budete musieť manuálne nájsť najskorší a najnovší dátum. Metódou 2 sa tohto problému môžete úplne zbaviť.
Metóda 2: Zlúčenie viacerých úloh pomocou VBA
- Pre začiatok spustite editor VBA v programe Outlook podľa pokynov „Ako spustiť kód VBA v programe Outlook".
- Potom pridajte odkaz na „Knižnicu objektov MS Excel“ prečítaním „Ako pridať odkaz na knižnicu objektov vo VBA".
- Neskôr skopírujte nasledujúci 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
- Ďalej pridajte toto makro na panel s nástrojmi alebo na pásku s nástrojmi Rýchly prístup.
- Nakoniec to môžete vyskúšať.
- Najskôr vyberte úlohy, ktoré sa majú zlúčiť.
- Potom kliknite na tlačidlo makra.
- Okamžite sa zobrazí nová úloha, ktorá bude obsahovať všetky pôvodné úlohy a ako dátum začiatku použije najskorší dátum a ako dátum dokončenia najnovší dátum, ako je znázornené na nasledujúcej snímke obrazovky.
Trvajte na pravidelnom zálohovaní PST
Ak nechcete prísť o svoje cenné údaje z Outlooku, odporúča sa pravidelné zálohovanie súborov Outlooku PST. Iba tak sa môžete zbaviť ťažkostí, keď trpíte korupciou PST Oprava PST, čo sa dá dosiahnuť iba pomocou robustného nástroja, ako je napr DataNumen Outlook Repair.
Úvod autora:
Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane oprava sql a výhľadové softvérové produkty na opravu. Pre viac informácií navštívte www.datanumen. S