2 metode rapide pentru a îmbina mai multe sarcini într-una singură în Outlook

Uneori, poate fi necesar să îmbinați mai multe sarcini într-o singură sarcină. În noua sarcină, corpul conține toate corpurile tuturor sarcinilor sursă, iar data de începere este cea mai veche dată dintre toate datele sarcinilor și așa mai departe. Acum, acest articol vă va învăța 2 moduri.

Când lucrați cu mai multe activități Outlook corelate între ele, este posibil să doriți să le îmbinați direct într-o singură activitate. Iar noua activitate îmbinată ar trebui să includă toate corpurile activităților sursă și să utilizeze cea mai veche dată dintre toate datele ca dată de început și cea mai recentă dată ca dată scadentă și așa mai departe. Acum, în cele ce urmează, vom introduce 2 modalități de a obține rapid acest lucru.

Metoda 1: Îmbinați manual mai multe sarcini

1. În primul rând, creați o nouă sarcină.
2. Apoi, în noua sarcină, accesați fila „Inserare” și faceți clic pe butonul „Elemente Outlook”.
3. Apoi, în fereastra pop-up, selectați sarcinile pe care doriți să le îmbinați.
4. Apoi selectați opțiunea „Numai text” în caseta „Inserați ca”.
5. După aceea, faceți clic pe butonul „OK”.
6. Ulterior, informațiile sarcinilor vor fi introduse în corpul noii sarcini.
7. Acum, trebuie să găsiți manual cea mai veche și cea mai recentă dată dintre toate datele din corp.
8. Apoi, modificați data de început și data scadenței sarcinii curente.
9. În cele din urmă, salvați această sarcină ca de obicei.

Metoda 1 va fi destul de dificilă atunci când setați data de începere și data scadenței sarcinii îmbinate, deoarece trebuie să găsiți manual cea mai veche și cea mai recentă dată. În Metoda 2, puteți scăpa complet de această problemă.

Metoda 2: Îmbinați sarcini multiple prin VBA

1. Pentru început, lansați editorul VBA Outlook conform instrucțiunilor „Cum să rulați codul VBA în Outlook".
2. Apoi, adăugați o referință la „Biblioteca de obiecte MS Excel” citind „Cum se adaugă o referință la o bibliotecă de obiecte în VBA".
3. Mai târziu, copiați următorul cod într-un modul.

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. Apoi, adăugați această macrocomandă în Bara de instrumente Acces rapid sau în panglică.
5. În sfârșit, puteți încerca.

• În primul rând, selectați sarcinile de îmbinat.
• Apoi, faceți clic pe butonul macro.
• Imediat, va fi afișată o sarcină nouă, care conține toate corpurile sarcinilor originale și utilizează cea mai veche dată ca dată de începere și cea mai recentă dată ca dată scadentă, așa cum se arată în următoarea captură de ecran.

Insistați să faceți copii de rezervă PST regulate

Dacă nu doriți să vă pierdeți datele valoroase din Outlook, este recomandat să faceți copii de rezervă regulate pentru fișierele dvs. PST Outlook. Numai în acest fel, atunci când suferiți de corupție PST, puteți scăpa de dificil reparație PST, care poate fi realizat numai printr-un instrument robust, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv repara sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com