2 metodi rapidi per unire più attività in una singola in Outlook

A volte, potrebbe essere necessario unire più attività in un'unica attività. Nella nuova attività, il corpo contiene tutti i corpi di tutte le attività e i messaggi di originetart data è la prima data tra tutte le date delle attività e così via. Ora, questo articolo ti insegnerà 2 modi.

Quando si ha a che fare con più attività di Outlook correlate tra loro, è possibile unirle direttamente in un'unica attività. E la nuova attività unita dovrebbe includere tutti i corpi delle attività di origine e utilizzare la prima data tra tutte le date come start data e ultima data come data di scadenza e così via. Ora, di seguito, introdurremo 2 mezzi per ottenerlo rapidamente.

Metodo 1: unisci più attività manualmente

1. Innanzitutto, crea una nuova attività.
2. Quindi, nella nuova attività, vai alla scheda "Inserisci" e fai clic sul pulsante "Elementi di Outlook".
3. Successivamente, nella finestra popup, seleziona le attività che desideri unire.
4. E quindi seleziona l'opzione "Solo testo" nella casella "Inserisci come".
5. Successivamente, fai clic sul pulsante "OK".
6. Successivamente, le informazioni delle attività verranno inserite nel corpo della nuova attività.
7. Ora, devi trovare manualmente la prima e l'ultima data tra tutte le date nel corpo.
8. Quindi, cambia la start e la data di scadenza dell'attività corrente.
9. Infine, salva questa attività come al solito.

Il metodo 1 sarà piuttosto problematico quando si imposta start data e data di scadenza dell'attività unita in quanto è necessario trovare manualmente la prima e l'ultima data. Nel metodo 2, puoi eliminare completamente questo problema.

Metodo 2: unisci più attività tramite VBA

1. Per cometart, avvia l'editor VBA di Outlook secondo "Come eseguire il codice VBA in Outlook".
2. Quindi, aggiungere il riferimento a "MS Excel Object Library” leggendo “Come aggiungere un oggetto Library Riferimento in VBA".
3. Successivamente, copia il seguente codice in un modulo.

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. Successivamente, aggiungi questa macro alla barra degli strumenti di accesso rapido o alla barra multifunzione.
5. Finalmente puoi provare.

• Prima di tutto, seleziona le attività da unire.
• Quindi, fai clic sul pulsante macro.
• Immediatamente, verrà visualizzata una nuova attività, che contiene tutti i corpi delle attività originali nel corpo e utilizza la prima data come start data, ultima data come data di scadenza, come mostrato nello screenshot seguente.

Insistere per fare backup PST regolari

Se non vuoi perdere i tuoi preziosi dati di Outlook, ti ​​consigliamo di eseguire backup regolari dei tuoi file PST di Outlook. Solo in questo modo, quando soffri di corruzione PST, puoi sbarazzarti di difficoltà Riparazione PST, che può essere realizzato solo tramite uno strumento robusto, come ad esempio DataNumen Outlook Repair.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui riparare sql e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com