2 gyors módszer több feladat egyetlen feladattá egyesítésére az Outlookban

Előfordulhat, hogy több feladatot kell egyetlen feladattá egyesíteni. Az új feladatban a törzs tartalmazza az összes forrásfeladat törzsét, és a kezdési dátum a feladatok összes dátuma közül a legkorábbi dátum, és így tovább. Ez a cikk most két módszert mutat be.

Több, egymással összefüggő Outlook-feladat kezelésekor érdemes lehet őket közvetlenül egyetlen feladattá egyesíteni. Az új, egyesített feladatnak tartalmaznia kell az összes forrásfeladat törzsét, és a legkorábbi dátumot kell használnia kezdési dátumként, a legkésőbbi dátumot pedig határidőként, és így tovább. A következőkben két módszert mutatunk be a gyors eléréshez.

1. módszer: Egyesítsen több feladatot manuálisan

1. Először is hozzon létre egy új feladatot.
2. Ezután az új feladatban lépjen a „Beszúrás” fülre, és kattintson az „Outlook tételek” gombra.
3. Ezután a felugró ablakban válassza ki az egyesíteni kívánt feladatokat.
4. Ezután válassza a „Csak szöveg” lehetőséget a „Beszúrás másként” mezőben.
5. Ezt követően kattintson az „OK” gombra.
6. Később a feladatok információi bekerülnek az új feladat törzsébe.
7. Most manuálisan kell megkeresnie a legkorábbi és legkésőbbi dátumot a törzsben szereplő összes dátum közül.
8. Ezután módosítsa az aktuális feladat kezdési és esedékességi dátumát.
9. Végül mentse el ezt a feladatot a szokásos módon.

Az 1. módszer meglehetősen nehézkes lesz az egyesített feladat kezdési dátumának és határidejének beállításakor, mivel manuálisan kell megkeresni a legkorábbi és a legkésőbbi dátumot. A 2. módszerrel teljesen megszabadulhat ettől a problémától.

2. módszer: Egyesítsen több feladatot VBA-n keresztül

1. Kezdésként indítsa el az Outlook VBA szerkesztőt a „A VBA kód futtatása az Outlookban".
2. Ezután adjon hozzá hivatkozást az „MS Excel objektumkönyvtárra” a következő olvasattal: „Objektumkönyvtár-hivatkozás hozzáadása VBA-ban".
3. Később másolja be a következő kódot egy modulba.

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. Ezután adja hozzá ezt a makrót a Gyorselérési eszköztárhoz vagy a szalaghoz.
5. Végre egy próbát tehetsz.

• Először válassza ki az egyesítendő feladatokat.
• Ezután kattintson a makró gombra.
• Azonnal megjelenik egy új feladat, amely az összes eredeti feladat törzsét tartalmazza, és a legkorábbi dátumot használja kezdési dátumként, a legkésőbbi dátumot pedig határidőként, ahogy az a következő képernyőképen is látható.

Ragaszkodjon a rendszeres PST biztonsági másolatok készítéséhez

Ha nem szeretné elveszíteni értékes Outlook adatait, javasoljuk, hogy rendszeresen készítsen biztonsági másolatot az Outlook PST fájljairól. Csak így, ha szenved PST korrupció, akkor megszabadulni nehéz PST javítás, ami csak egy robusztus eszközzel valósítható meg, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve javítás sql és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com