Ponekad vam je potrebno spojiti više zadataka u jedan. U novom zadatku, tijelo sadrži sva tijela svih izvornih zadataka, a datum početka je najraniji datum među svim datumima zadataka i tako dalje. Sada će vas ovaj članak naučiti dva načina.
Kada imate više Outlook zadataka koji su međusobno povezani, možda ćete ih htjeti direktno spojiti u jedan zadatak. Novi spojeni zadatak trebao bi uključivati sva tijela izvornih zadataka i koristiti najraniji datum među svim datumima kao datum početka, a najnoviji datum kao datum dospijeća i tako dalje. U nastavku ćemo predstaviti 2 načina za brzo dobijanje rezultata.
Metoda 1: Ručno spajanje više zadataka
- Na prvom mjestu, kreirajte novi zadatak.
- Zatim, u novom zadatku, okrenite se na karticu “Insert” i kliknite na dugme “Outlook Items”.
- Zatim u iskačućem prozoru odaberite zadatke koje želite spojiti.
- Zatim odaberite opciju "Samo tekst" u polju "Umetni kao".

- Nakon toga kliknite na dugme “OK”.
- Kasnije će se informacije o zadacima umetnuti u tijelo novog zadatka.
- Sada morate ručno pronaći najraniji i najnoviji datum među svim datumima u tijelu.
- Zatim promijenite datum početka i dospijeća trenutnog zadatka.
- Konačno, sačuvajte ovaj zadatak kao i obično.
Metoda 1 će biti prilično problematična pri postavljanju datuma početka i datuma dospijeća spojenog zadatka jer morate ručno pronaći najraniji i najnoviji datum. U Metodi 2 možete se u potpunosti riješiti ovog problema.
Metoda 2: Spajanje više zadataka putem VBA
- Za početak, pokrenite Outlook VBA editor prema uputstvu "Kako pokrenuti VBA kod u vašem Outlooku".
- Zatim dodajte referencu na „MS Excel Object Library“ čitajući „Kako dodati referencu biblioteke objekata u VBA".
- Kasnije kopirajte sljedeći kod u modul.
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
- Zatim dodajte ovaj makro na alatnu traku ili traku za brzi pristup.
- Konačno, možete probati.
- Prvo odaberite zadatke koje želite spojiti.
- Zatim kliknite na dugme makro.
- Odmah će se prikazati novi zadatak koji sadrži sva originalna tijela zadataka i koristi najraniji datum kao datum početka, a najnoviji datum kao datum dospijeća, kao što je prikazano na sljedećem snimku ekrana.
Insistirajte na pravljenju redovnih PST sigurnosnih kopija
Ako ne želite da izgubite svoje vrijedne Outlook podatke, preporučuje se da redovno pravite sigurnosne kopije za Outlook PST datoteke. Samo na taj način, kada patite od PST korupcije, možete se riješiti teškog PST repair, što se može postići samo pomoću robusnog alata, kao npr DataNumen Outlook Repair.
Uvod za autora:
Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti sql i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com



