Ibland kan du behöva slå samman flera uppgifter till en enda uppgift. I den nya uppgiften innehåller brödtexten alla brödtexter för alla källuppgifter och startdatumet är det tidigaste datumet bland alla datum för uppgifterna och så vidare. Nu kommer den här artikeln att lära dig två sätt.
När du hanterar flera Outlook-uppgifter som är korrelerade med varandra kanske du vill slå samman dem direkt till en uppgift. Den nya sammanslagna uppgiften ska inkludera alla källuppgifters innehåll och använda det tidigaste datumet bland alla datum som startdatum och senaste datum som förfallodatum och så vidare. Nu, i det följande, kommer vi att introducera två sätt att snabbt få tag på det.
Metod 1: Slå samman flera uppgifter manuellt
- För det första, skapa en ny uppgift.
- I den nya uppgiften vänder du dig sedan till fliken "Infoga" och klickar på knappen "Outlook-objekt".
- Välj sedan i popup-fönstret de uppgifter du vill slå samman.
- Och välj sedan alternativet "Endast text" i rutan "Infoga som".

- Klicka sedan på “OK” -knappen.
- Senare kommer informationen om uppgifterna att införas i den nya uppgifternas kropp.
- Nu måste du manuellt hitta det tidigaste och senaste datumet bland alla datum i kroppen.
- Ändra sedan start- och förfallodatum för den aktuella uppgiften.
- Slutligen spara den här uppgiften som vanligt.
Metod 1 kommer att vara ganska besvärlig när man ställer in startdatum och förfallodatum för den sammanslagna uppgiften, eftersom man manuellt måste hitta det tidigaste och senaste datumet. Med metod 2 kan du helt bli av med detta problem.
Metod 2: Slå samman flera uppgifter via VBA
- Till att börja med, starta Outlook VBA-redigeraren enligt “Hur du kör VBA-kod i din Outlook".
- Lägg sedan till en referens till ”MS Excel Object Library” genom att läsa ”Hur man lägger till en objektbiblioteksreferens i VBA".
- Senare, kopiera följande kod till en 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
- Lägg sedan till detta makro i snabbåtkomstverktygsfältet eller menyfliksområdet.
- Slutligen kan du prova.
- Välj först de uppgifter som ska slås samman.
- Klicka sedan på makroknappen.
- Omedelbart visas en ny uppgift, som har alla ursprungliga uppgifters innehåll i samma uppgift och använder det tidigaste datumet som startdatum och senaste datumet som förfallodatum, som visas i följande skärmdump.
Insistera på att göra vanliga PST-säkerhetskopior
Om du inte vill förlora dina värdefulla Outlook-data rekommenderas det att du säkerhetskopierar regelbundet dina Outlook PST-filer. Bara på det här sättet, när du lider av PST-korruption, kan du bli av med svårt PST-reparation, som endast kan åstadkommas via ett robust verktyg, t.ex. DataNumen Outlook Repair.
Författarintroduktion:
Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive reparera kvm och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com



