Il peut arriver que vous ayez besoin de fusionner plusieurs tâches en une seule. Dans la nouvelle tâche, le corps contient le contenu de toutes les tâches sources, et la date de début correspond à la date la plus ancienne parmi celles-ci, et ainsi de suite. Cet article vous présente deux méthodes pour y parvenir.
Lorsque vous gérez plusieurs tâches Outlook liées entre elles, vous pouvez les fusionner directement en une seule. Cette nouvelle tâche fusionnée doit inclure le contenu de toutes les tâches sources et utiliser la date la plus ancienne comme date de début et la plus récente comme date d'échéance, et ainsi de suite. Nous allons maintenant vous présenter deux méthodes pour y parvenir rapidement.
Méthode 1 : fusionner plusieurs tâches manuellement
- En premier lieu, créez une nouvelle tâche.
- Ensuite, dans la nouvelle tâche, accédez à l'onglet "Insérer" et cliquez sur le bouton "Éléments Outlook".
- Ensuite, dans la fenêtre contextuelle, sélectionnez les tâches que vous souhaitez fusionner.
- Et puis sélectionnez l'option "Texte uniquement" dans la case "Insérer en tant que".
- Après cela, cliquez sur le bouton "OK".
- Plus tard, les informations des tâches seront insérées dans le corps de la nouvelle tâche.
- Maintenant, vous devez rechercher manuellement la date la plus ancienne et la plus récente parmi toutes les dates du corps.
- Ensuite, modifiez la date de début et la date d'échéance de la tâche actuelle.
- Enfin, enregistrez cette tâche comme d'habitude.
La méthode 1 s'avère assez fastidieuse pour définir la date de début et la date d'échéance de la tâche fusionnée, car il faut rechercher manuellement les dates les plus proches et les plus récentes. La méthode 2 permet d'éviter complètement ce problème.
Méthode 2 : fusionner plusieurs tâches via VBA
- Pour commencer, lancez l'éditeur VBA d'Outlook conformément à «Comment exécuter le code VBA dans votre Outlook" .
- Ensuite, ajoutez une référence à « MS Excel Object Library » en lisant « Comment ajouter une référence à une bibliothèque d'objets en VBA" .
- Plus tard, copiez le code suivant dans un 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
- Ensuite, ajoutez cette macro à la barre d'outils ou au ruban d'accès rapide.
- Enfin, vous pouvez essayer.
- Tout d'abord, sélectionnez les tâches à fusionner.
- Ensuite, cliquez sur le bouton macro.
- Une nouvelle tâche s'affichera immédiatement, contenant le contenu de toutes les tâches d'origine et utilisant la date la plus ancienne comme date de début et la plus récente comme date d'échéance, comme illustré dans la capture d'écran suivante.
Insistez pour effectuer des sauvegardes PST régulières
Si vous ne voulez pas perdre vos précieuses données Outlook, il est recommandé de faire des sauvegardes régulières de vos fichiers Outlook PST. Seulement de cette façon, lorsque vous souffrez de corruption PST, vous pouvez vous débarrasser des problèmes difficiles Réparation PST, ce qui ne peut être accompli que via un outil robuste, tel que DataNumen Outlook Repair.
Introduction de l'auteur:
Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris réparer sql et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com