A veces, es posible que deba combinar varias tareas en una sola tarea. En la nueva tarea, el cuerpo contiene todos los cuerpos de todas las tareas de origen ystart fecha es la fecha más temprana entre todas las fechas de las tareas y así sucesivamente. Ahora, este artículo le enseñará dos formas.
Cuando se trata de varias tareas de Outlook que son correlativas entre sí, es posible que desee combinarlas directamente en una sola tarea. Y la nueva tarea combinada debe incluir todos los cuerpos de las tareas de origen y usa la fecha más temprana entre todas las fechas como start fecha y última fecha como fecha de vencimiento y así sucesivamente. Ahora, a continuación, presentaremos 2 medios para obtenerlo rápidamente.
Método 1: fusionar varias tareas manualmente
- En primer lugar, cree una nueva tarea.
- Luego, en la nueva tarea, vaya a la pestaña "Insertar" y haga clic en el botón "Elementos de Outlook".
- A continuación, en la ventana emergente, seleccione las tareas que desea combinar.
- Y luego seleccione la opción "Sólo texto" en el cuadro "Insertar como".
- Después de eso, haga clic en el botón "Aceptar".
- Posteriormente, la información de las tareas se insertará en el cuerpo de la nueva tarea.
- Ahora, debe buscar manualmente la fecha más antigua y la última entre todas las fechas del cuerpo.
- A continuación, cambie la starty fecha de vencimiento de la tarea actual.
- Finalmente, guarde esta tarea como de costumbre.
El método 1 será bastante problemático al configurar el start fecha y fecha de vencimiento de la tarea combinada, ya que debe buscar manualmente la fecha más antigua y la última. En el Método 2, puede deshacerse completamente de este problema.
Método 2: fusionar varias tareas a través de VBA
- Porque comotart, inicie el editor de Outlook VBA de acuerdo con "Cómo ejecutar código VBA en su Outlook".
- Luego, agregue una referencia a "MS Excel Object Library "leyendo"Cómo agregar una biblioteca de objetosrary Referencia en VBA".
- Luego, copie el siguiente código en un módulo.
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
- A continuación, agregue esta macro a la barra de herramientas de acceso rápido o cinta.
- Finalmente, puedes intentarlo.
- En primer lugar, seleccione las tareas que se fusionarán.
- Luego, haga clic en el botón de macro.
- Inmediatamente, se mostrará una nueva tarea, que tiene todos los cuerpos de las tareas originales en el cuerpo y usa la fecha más temprana como start fecha, última fecha como fecha de vencimiento, como se muestra en la siguiente captura de pantalla.
Insista en realizar copias de seguridad PST regulares
Si no desea perder sus valiosos datos de Outlook, se recomienda realizar copias de seguridad periódicas de sus archivos PST de Outlook. Solo de esta manera, cuando sufre de corrupción PST, puede deshacerse de los Reparación de PST, que solo se puede lograr a través de una herramienta robusta, como DataNumen Outlook Repair.
Introducción del autor:
Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo reparar sql y productos de software de reparación de Outlook. Para más información visite www.datanumen.com




