Mõnikord võib tekkida vajadus ühendada mitu ülesannet üheks ülesandeks. Uues ülesandes sisaldab sisu kõigi lähteülesannete sisusid ja alguskuupäev on kõigi ülesannete kuupäevade seas varaseim kuupäev jne. Nüüd õpetab see artikkel teile kahte võimalust.
Mitme omavahel seotud Outlooki ülesande käsitlemisel võiksite need otse üheks ülesandeks ühendada. Uus ühendatud ülesanne peaks sisaldama kõigi lähteülesannete sisu ning kasutama alguskuupäevana varaseima kuupäeva ja lõppkuupäevana hiliseima kuupäeva jne. Järgnevalt tutvustame kahte viisi selle kiireks hankimiseks.
1. meetod: ühendage mitu ülesannet käsitsi
- Kõigepealt looge uus ülesanne.
- Seejärel avage uues ülesandes vahekaart "Sisesta" ja klõpsake nuppu "Outlooki üksused".
- Järgmisena valige hüpikaknas ülesanded, mida soovite ühendada.
- Ja seejärel valige kastis "Sisesta kui" valik "Ainult tekst".
- Pärast seda klõpsake nuppu "OK".
- Hiljem sisestatakse ülesannete teave uue ülesande kehasse.
- Nüüd peate käsitsi leidma kehas olevatest kuupäevadest varaseima ja hilisema kuupäeva.
- Järgmisena muutke praeguse ülesande algus- ja tähtaega.
- Lõpuks salvestage see ülesanne nagu tavaliselt.
Meetod 1 on ühendatud ülesande algus- ja lõppkuupäeva määramisel üsna tülikas, kuna peate käsitsi leidma varaseima ja hiliseima kuupäeva. Meetodi 2 abil saate sellest probleemist täielikult lahti.
2. meetod: ühendage mitu ülesannet VBA kaudu
- Alustuseks käivitage Outlooki VBA redaktor vastavalt juhistele „Kuidas Outlookis VBA-koodi käivitada".
- Seejärel lisa viide „MS Exceli objektiteegile”, lugedes „Kuidas lisada VBA-s objektiteegi viidet".
- Hiljem kopeerige järgmine kood moodulisse.
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
- Järgmisena lisage see makro kiirpääsu tööriistaribale või lindile.
- Lõpuks võite proovida.
- Kõigepealt valige ühendatavad ülesanded.
- Seejärel klõpsake makro nuppu.
- Kohe kuvatakse uus ülesanne, millel on kõigi algsete ülesannete sisutekstid ning mis kasutab alguskuupäevana varaseimat kuupäeva ja tähtaegana hiliseimat kuupäeva, nagu on näidatud järgmisel ekraanipildil.
Nõudke regulaarsete PST-varukoopiate tegemist
Kui te ei soovi oma väärtuslikke Outlooki andmeid kaotada, on soovitatav Outlooki PST-failidest regulaarselt varundada. Ainult sel viisil saate PST korruptsiooni all kannatades vabaneda rasketest PST remont, mida saab teha ainult tugeva tööriista abil, näiteks DataNumen Outlook Repair.
Autori sissejuhatus:
Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas remont sql ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom