Dažreiz var būt nepieciešams apvienot vairākus uzdevumus vienā uzdevumā. Jaunajā uzdevumā pamattekstā ir visu avota uzdevumu pamatteksti, un sākuma datums ir agrākais datums no visiem uzdevumu datumiem utt. Tagad šajā rakstā ir aprakstīti divi veidi.
Strādājot ar vairākiem Outlook uzdevumiem, kas ir savstarpēji saistīti, varat tos tieši apvienot vienā uzdevumā. Jaunajam apvienotajam uzdevumam jāietver visu avota uzdevumu pamatteksti, un kā sākuma datums jāizmanto agrākais no visiem datumiem, bet kā izpildes datums — vēlākais utt. Tagad turpmāk mēs iepazīstināsim ar diviem veidiem, kā to ātri iegūt.
1. metode: apvienojiet vairākus uzdevumus manuāli
- Pirmkārt, izveidojiet jaunu uzdevumu.
- Pēc tam jaunajā uzdevumā pārejiet uz cilni “Ievietot” un noklikšķiniet uz pogas “Outlook vienumi”.
- Pēc tam uznirstošajā logā atlasiet uzdevumus, kurus vēlaties apvienot.
- Pēc tam lodziņā “Ievietot kā” atlasiet opciju “Tikai teksts”.
- Pēc tam noklikšķiniet uz pogas Labi.
- Vēlāk informācija par uzdevumiem tiks ievietota jaunā uzdevuma pamattekstā.
- Tagad jums ir manuāli jāatrod agrākais un pēdējais datums starp visiem ķermeņa datumiem.
- Pēc tam mainiet pašreizējā uzdevuma sākuma un izpildes datumu.
- Visbeidzot, saglabājiet šo uzdevumu kā parasti.
1. metode būs diezgan sarežģīta, iestatot apvienotā uzdevuma sākuma datumu un izpildes datumu, jo manuāli jāatrod agrākais un vēlākais datums. 2. metodē jūs varat pilnībā atbrīvoties no šīs problēmas.
2. metode: apvienojiet vairākus uzdevumus, izmantojot VBA
- Lai sāktu, palaidiet Outlook VBA redaktoru saskaņā ar “Kā palaist VBA kodu programmā Outlook".
- Pēc tam pievienojiet atsauci uz “MS Excel objektu bibliotēku”, lasot “Kā pievienot objektu bibliotēkas atsauci VBA valodā".
- Vēlāk kopējiet šo kodu 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
- Pēc tam pievienojiet šo makro ātrās piekļuves rīkjoslai vai lentei.
- Visbeidzot, jūs varat izmēģināt.
- Vispirms atlasiet apvienojamos uzdevumus.
- Pēc tam noklikšķiniet uz makro pogas.
- Uzreiz tiks parādīts jauns uzdevums, kurā pamattekstā ir visi sākotnējo uzdevumu pamatteksti, un sākuma datums ir agrākais datums, bet izpildes datums — vēlākais, kā parādīts šajā ekrānuzņēmumā.
Uzstāt uz regulāriem PST dublējumiem
Ja nevēlaties zaudēt vērtīgos Outlook datus, ieteicams regulāri veikt Outlook PST failu dublējumus. Tikai šādā veidā, ciešot no PST korupcijas, jūs varat atbrīvoties no grūtībām PST remonts, ko var paveikt tikai ar stabilu rīku, piemēram, DataNumen Outlook Repair.
Autora ievads:
Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp remonta kv un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar