2 métodos rápidos para mesclar várias tarefas em uma única no Outlook

Às vezes, você pode precisar mesclar várias tarefas em uma única tarefa. Na nova tarefa, o corpo contém todos os corpos de todas as tarefas de origem e a data de início é a data mais antiga entre todas as datas das tarefas, e assim por diante. Este artigo ensinará duas maneiras de fazer isso.

Ao lidar com várias tarefas do Outlook que estão correlacionadas entre si, você pode querer mesclá-las diretamente em uma única tarefa. A nova tarefa mesclada deve incluir o conteúdo de todas as tarefas de origem e usar a data mais antiga como data de início e a data mais recente como data de vencimento, e assim por diante. A seguir, apresentaremos duas maneiras de fazer isso rapidamente.

Método 1: mesclar várias tarefas manualmente

1. Em primeiro lugar, crie uma nova tarefa.
2. Em seguida, na nova tarefa, vá para a guia “Inserir” e clique no botão “Itens do Outlook”.
3. Em seguida, na janela pop-up, selecione as tarefas que deseja mesclar.
4. Em seguida, selecione a opção “Somente texto” na caixa “Inserir como”.
5. Depois disso, clique no botão “OK”.
6. Posteriormente, as informações das tarefas serão inseridas no corpo da nova tarefa.
7. Agora, você precisa localizar manualmente a data mais antiga e a mais recente entre todas as datas do corpo.
8. Em seguida, altere a data de início e a data de término da tarefa atual.
9. Finalmente, salve esta tarefa como de costume.

O Método 1 será bastante problemático ao definir a data de início e a data de término da tarefa mesclada, pois você terá que encontrar manualmente a data mais antiga e a mais recente. No Método 2, você pode se livrar completamente desse problema.

Método 2: mesclar várias tarefas via VBA

1. Para começar, abra o editor VBA do Outlook conforme as instruções em “Como executar o código VBA no seu Outlook".
2. Em seguida, adicione uma referência à “Biblioteca de Objetos do MS Excel” lendo “Como adicionar uma referência à biblioteca de objetos em VBA".
3. Posteriormente, copie o código a seguir em um 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

4. Em seguida, adicione esta macro à barra de ferramentas de acesso rápido ou à faixa de opções.
5. Finalmente, você pode tentar.

• Primeiro, selecione as tarefas a serem mescladas.
• Em seguida, clique no botão macro.
• Imediatamente, uma nova tarefa será exibida, contendo todos os elementos das tarefas originais e utilizando a data mais antiga como data de início e a data mais recente como data de vencimento, conforme mostrado na captura de tela a seguir.

Insista em fazer backups PST regulares

Se você não deseja perder seus valiosos dados do Outlook, é recomendável fazer backups regulares dos arquivos PST do Outlook. Só assim, ao sofrer de corrupção PST, você pode se livrar de problemas difíceis Reparação de PST, que só pode ser realizado por meio de uma ferramenta robusta, como DataNumen Outlook Repair.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo reparar sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com