2 greiti metodai, kaip sujungti kelias užduotis į vieną „Outlook“.

Kartais gali tekti sujungti kelias užduotis į vieną. Naujos užduoties pagrindinėje dalyje yra visų šaltinio užduočių pagrindinės dalys, o pradžios data yra anksčiausia iš visų užduočių datų ir taip toliau. Dabar šiame straipsnyje sužinosite 2 būdus.

Kai dirbate su keliomis tarpusavyje susijusiomis „Outlook“ užduotimis, galite jas tiesiogiai sujungti į vieną užduotį. Nauja sujungta užduotis turėtų apimti visų šaltinio užduočių tekstus ir naudoti ankstyviausią iš visų datų kaip pradžios datą, vėliausią – kaip terminą ir t. t. Dabar toliau pristatysime 2 būdus, kaip greitai tai padaryti.

1 būdas: sujunkite kelias užduotis rankiniu būdu

1. Pirmiausia sukurkite naują užduotį.
2. Tada naujoje užduotyje eikite į skirtuką „Įterpti“ ir spustelėkite mygtuką „Outlook elementai“.
3. Tada iššokančiajame lange pasirinkite užduotis, kurias norite sujungti.
4. Tada laukelyje „Įterpti kaip“ pasirinkite parinktį „Tik tekstas“.
5. Po to spustelėkite mygtuką „Gerai“.
6. Vėliau užduočių informacija bus įtraukta į naujos užduoties turinį.
7. Dabar turite neautomatiniu būdu rasti anksčiausią ir vėliausią datą tarp visų datų tekste.
8. Toliau pakeiskite dabartinės užduoties pradžios ir terminus.
9. Galiausiai išsaugokite šią užduotį kaip įprasta.

1 metodas bus gana sudėtingas nustatant sujungtos užduoties pradžios datą ir terminą, nes reikės rankiniu būdu rasti anksčiausią ir vėliausią datas. 2 metodas padės visiškai atsikratyti šios problemos.

2 būdas: sujunkite kelias užduotis per VBA

1. Pirmiausia paleiskite „Outlook VBA“ redaktorių pagal „Kaip paleisti VBA kodą „Outlook“.".
2. Tada pridėkite nuorodą į „MS Excel objektų biblioteką“, skaitydami „Kaip pridėti objektų bibliotekos nuorodą VBA".
3. Vėliau nukopijuokite šį kodą į 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

4. Tada pridėkite šią makrokomandą prie greitosios prieigos įrankių juostos arba juostos.
5. Pagaliau galite pabandyti.

• Pirmiausia pasirinkite užduotis, kurias norite sujungti.
• Tada spustelėkite makrokomandos mygtuką.
• Iškart bus rodoma nauja užduotis, kurios tekste bus visi pradiniai užduočių tekstai, o pradžios data – anksčiausia, o terminas – vėliausia, kaip parodyta toliau pateiktoje ekrano kopijoje.

Reikalaukite reguliarių PST atsarginių kopijų

Jei nenorite prarasti vertingų „Outlook“ duomenų, rekomenduojama reguliariai kurti atsargines „Outlook“ PST failų kopijas. Tik tokiu būdu, kai kenčia nuo PST korupcijos, galite atsikratyti sudėtingų PST remontas, kurį galima atlikti tik naudojant tvirtą įrankį, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant remontas sql ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com