2 hitri metodi za združitev več opravil v eno v Outlooku

Včasih boste morda morali združiti več nalog v eno samo. V novi nalogi telo vsebuje vsa telesa vseh izvornih nalog, začetni datum pa je najzgodnejši datum med vsemi datumi nalog in tako naprej. Ta članek vas bo naučil dveh načinov.

Ko imate opravka z več Outlookovimi opravili, ki so med seboj povezana, jih boste morda želeli neposredno združiti v eno opravilo. Novo združeno opravilo mora vključevati vsa telesa izvornih opravil in kot začetni datum uporabiti najzgodnejši datum med vsemi datumi, kot rok pa najnovejši datum in tako naprej. V nadaljevanju bomo predstavili dva načina za hiter dostop do tega.

1. način: Ročno združite več nalog

1. Najprej ustvarite novo nalogo.
2. Nato v novi nalogi odprite zavihek »Vstavi« in kliknite gumb »Outlookovi elementi«.
3. Nato v pojavnem oknu izberite naloge, ki jih želite združiti.
4. Nato v polju »Vstavi kot« izberite možnost »Samo besedilo«.
5. Po tem kliknite gumb »V redu«.
6. Pozneje bodo informacije o nalogah vstavljene v telo nove naloge.
7. Zdaj morate ročno najti najzgodnejši in zadnji datum med vsemi datumi v telesu.
8. Nato spremenite začetek in rok trenutne naloge.
9. Na koncu shranite to nalogo kot običajno.

Prva metoda bo precej težavna pri nastavljanju začetnega datuma in roka združene naloge, saj boste morali ročno najti najzgodnejši in najpoznejši datum. Z drugo metodo se lahko te težave popolnoma znebite.

2. način: Združi več opravil prek VBA

1. Za začetek zaženite urejevalnik VBA za Outlook v skladu z "Kako zagnati kodo VBA v Outlooku".
2. Nato dodajte sklic na »Knjižnico objektov MS Excel« tako, da preberete »Kako dodati referenco knjižnice objektov v VBA".
3. Kasneje kopirajte naslednjo kodo v 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. Nato dodajte ta makro v orodno vrstico ali trak za hitri dostop.
5. Končno lahko poskusite.

• Najprej izberite naloge, ki jih želite združiti.
• Nato kliknite gumb makra.
• Takoj se bo prikazala nova naloga, ki bo vsebovala vsa telesa izvirnih nalog in bo kot datum začetka uporabila najzgodnejši datum, kot datum zapadlosti pa najpoznejši, kot je prikazano na naslednjem posnetku zaslona.

Vztrajajte pri rednih varnostnih kopijah PST

Če ne želite izgubiti dragocenih Outlookovih podatkov, priporočamo redno varnostno kopiranje datotek Outlook PST. Le na ta način se lahko z lahkoto znebite, ko trpite zaradi korupcije PST Popravilo PST, ki ga je mogoče doseči samo z robustnim orodjem, kot je DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popravilo sql in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com