Soms is het nodig om meerdere taken samen te voegen tot één taak. In de nieuwe taak bevat de inhoud alle inhoud van de brontaken en de startdatum is de vroegste datum van alle taken, enzovoort. In dit artikel worden twee manieren uitgelegd om dit te doen.
Wanneer u te maken hebt met meerdere aan elkaar gerelateerde Outlook-taken, wilt u deze wellicht samenvoegen tot één taak. De nieuwe samengevoegde taak moet de inhoud van alle brontaken bevatten en de vroegste datum als startdatum en de laatste datum als einddatum gebruiken, enzovoort. Hieronder beschrijven we twee manieren om dit snel te doen.
Methode 1: meerdere taken handmatig samenvoegen
- Maak eerst een nieuwe taak aan.
- Ga vervolgens in de nieuwe taak naar het tabblad "Invoegen" en klik op de knop "Outlook-items".
- Selecteer vervolgens in het pop-upvenster de taken die u wilt samenvoegen.
- En selecteer vervolgens de optie "Alleen tekst" in het vak "Invoegen als".

- Klik daarna op de knop "OK".
- Later wordt de informatie over de taken ingevoegd in de hoofdtekst van de nieuwe taak.
- Nu moet u handmatig de vroegste en laatste datum vinden tussen alle datums in de hoofdtekst.
- Wijzig vervolgens de start- en einddatum van de huidige taak.
- Sla deze taak ten slotte op zoals gewoonlijk.
Methode 1 is nogal omslachtig bij het instellen van de start- en einddatum van de samengevoegde taak, omdat u handmatig de vroegste en laatste datum moet opzoeken. Met methode 2 kunt u dit probleem volledig vermijden.
Methode 2: Meerdere taken samenvoegen via VBA
- Begin met het starten van de Outlook VBA-editor volgens de instructies.Hoe u VBA-code in uw Outlook uitvoert'.
- Voeg vervolgens een verwijzing naar de "MS Excel Object Library" toe door te lezen:Hoe voeg je een verwijzing naar een objectbibliotheek toe in VBA?'.
- Kopieer later de volgende code naar een module.
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
- Voeg vervolgens deze macro toe aan de werkbalk Snelle toegang of het lint.
- Eindelijk kun je het proberen.
- Selecteer eerst de taken die u wilt samenvoegen.
- Klik vervolgens op de macroknop.
- Er verschijnt direct een nieuwe taak, die alle inhoud van de oorspronkelijke taken bevat en de vroegste datum als startdatum en de laatste datum als einddatum gebruikt, zoals te zien is in de volgende schermafbeelding.
Dring erop aan dat u regelmatig PST-back-ups maakt
Als u uw waardevolle Outlook-gegevens niet wilt verliezen, is het raadzaam regelmatig back-ups te maken van uw Outlook PST-bestanden. Alleen op deze manier kunt u, als u last heeft van PST-corruptie, van de problemen afkomen PST-reparatie, wat alleen kan worden bereikt via een robuust hulpmiddel, zoals DataNumen Outlook Repair.
Auteur Introductie:
Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder reparatie sql en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com



