Nogle gange kan det være nødvendigt at flette flere opgaver sammen til én opgave. I den nye opgave indeholder brødteksten alle brødteksterne for alle kildeopgaverne, og startdatoen er den tidligste dato blandt alle datoerne for opgaverne osv. Denne artikel vil lære dig to måder.
Når du har flere Outlook-opgaver, der er korrelerede med hinanden, kan du flette dem direkte sammen til én opgave. Den nye flettede opgave skal indeholde alle kildeopgavernes indhold og bruge den tidligste dato blandt alle datoer som startdato og den seneste dato som forfaldsdato osv. Nu vil vi i det følgende introducere to måder at få det hurtigt.
Metode 1: Flet flere opgaver manuelt
- For det første skal du oprette en ny opgave.
- Derefter skal du i den nye opgave dreje til fanen "Indsæt" og klikke på knappen "Outlook-emner".
- Vælg derefter de opgaver, du vil flette, i pop op-vinduet.
- Og vælg derefter "Kun tekst" i "Indsæt som" -boksen.

- Klik derefter på “OK” -knappen.
- Senere vil oplysningerne om opgaverne blive indsat i den nye opgave.
- Nu skal du manuelt finde den tidligste og seneste dato blandt alle datoer i kroppen.
- Dernæst skal du ændre start- og forfaldsdatoen for den aktuelle opgave.
- Endelig gem denne opgave som normalt.
Metode 1 vil være ret besværlig, når du skal indstille startdato og forfaldsdato for den flettede opgave, da du manuelt skal finde den tidligste og seneste dato. Med metode 2 kan du slippe fuldstændigt af med dette problem.
Metode 2: Flet flere opgaver via VBA
- Til at starte med skal du starte Outlook VBA-editoren i henhold til "Sådan køres VBA-kode i din Outlook".
- Tilføj derefter en henvisning til “MS Excel Object Library” ved at læse “Sådan tilføjer du en objektbiblioteksreference i VBA".
- Senere skal du kopiere følgende kode til et 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
- Dernæst tilføj denne makro til værktøjslinjen til hurtig adgang eller båndet.
- Endelig kan du prøve.
- Vælg først de opgaver, der skal flettes.
- Klik derefter på makroknappen.
- Der vises straks en ny opgave, som indeholder alle de oprindelige opgavers brødtekster, og som bruger den tidligste dato som startdato og den seneste dato som forfaldsdato, som vist på følgende skærmbillede.
Insister på at lave regelmæssige PST-sikkerhedskopier
Hvis du ikke vil miste dine værdifulde Outlook-data, anbefales det at lave regelmæssige sikkerhedskopier til dine Outlook PST-filer. Kun på denne måde kan du slippe af med vanskelige problemer, når du lider af PST-korruption PST-reparation, som kun kan opnås via et robust værktøj, såsom DataNumen Outlook Repair.
Forfatter Introduktion:
Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder reparation kvm og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com



