Ponekad ćete možda trebati spojiti više zadataka u jedan zadatak. 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 2 načina.
Kada se radi o više Outlook zadataka koji su međusobno povezani, možda biste ih htjeli izravno 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 dobivanje rezultata.
Metoda 1: Ručno spajanje više zadataka
- Na prvom mjestu izradite novi zadatak.
- Zatim u novom zadatku otvorite karticu "Umetni" i kliknite gumb "Stavke programa Outlook".
- Zatim u skočnom prozoru odaberite zadatke koje želite spojiti.
- Zatim odaberite opciju "Samo tekst" u okviru "Umetni kao".

- Nakon toga kliknite gumb "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 početak i datum dospijeća trenutnog zadatka.
- Na kraju, spremite ovaj zadatak kao i obično.
Metoda 1 bit će 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 uputama "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 ovu makronaredbu na alatnu traku za brzi pristup ili vrpcu.
- Konačno, možete pokušati.
- Najprije odaberite zadatke koje želite spojiti.
- Zatim kliknite gumb makronaredbe.
- Odmah će se prikazati novi zadatak koji sadrži sva izvorna tijela zadataka i koristi najraniji datum kao datum početka, a najnoviji datum kao datum dospijeća, kao što je prikazano na sljedećoj snimci zaslona.
Inzistirajte na izradi redovitih PST sigurnosnih kopija
Ako ne želite izgubiti svoje vrijedne Outlook podatke, preporučuje se da redovito izrađujete sigurnosne kopije za Outlook PST datoteke. Samo na taj način, kada patite od PST korupcije, možete se riješiti teškoća PST popravak, što se može postići samo pomoću robusnog alata, kao što je DataNumen Outlook Repair.
Uvod za autora:
Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravi sql i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com



