2 nopeaa menetelmää useiden tehtävien yhdistämiseen yhdeksi Outlookissasi

Joskus saatat joutua yhdistämään useita tehtäviä yhdeksi tehtäväksi. Uuden tehtävän runko sisältää kaikkien lähdetehtävien rungon, ja aloituspäivämäärä on tehtävien kaikkien päivämäärien aikaisin päivämäärä, ja niin edelleen. Tässä artikkelissa opetetaan kaksi tapaa.

Kun käsittelet useita toisiinsa korreloivia Outlook-tehtäviä, saatat haluta yhdistää ne suoraan yhdeksi tehtäväksi. Ja uuden yhdistetyn tehtävän tulisi sisältää kaikkien lähdetehtävien rungot ja käyttää kaikkien päivämäärien joukosta aikaisinta alkamispäivämääränä ja myöhäisintä eräpäivänä ja niin edelleen. Seuraavaksi esittelemme kaksi tapaa, joilla saat sen nopeasti.

Tapa 1: Yhdistä useita tehtäviä manuaalisesti

1. Luo ensin uusi tehtävä.
2. Siirry sitten uudessa tehtävässä "Lisää" -välilehteen ja napsauta "Outlook Items" -painiketta.
3. Valitse seuraavaksi ponnahdusikkunassa tehtävät, jotka haluat yhdistää.
4. Valitse sitten "Lisää nimellä" -ruudusta "Vain teksti".
5. Napsauta sen jälkeen “OK” -painiketta.
6. Myöhemmin tehtävien tiedot lisätään uuden tehtävän runkoon.
7. Nyt sinun on löydettävä manuaalisesti varhaisin ja viimeisin päivämäärä kaikkien tekstissä olevien päivämäärien joukosta.
8. Muuta seuraavaksi nykyisen tehtävän alkamis- ja määräpäivä.
9. Tallenna lopuksi tämä tehtävä tavalliseen tapaan.

Menetelmä 1 on melko hankala yhdistetyn tehtävän aloitus- ja määräpäivän asettamisessa, koska sinun on löydettävä manuaalisesti aikaisin ja myöhäisin päivämäärä. Menetelmässä 2 voit päästä eroon tästä ongelmasta täysin.

Tapa 2: Yhdistä useita tehtäviä VBA:n kautta

1. Aloita käynnistämällä Outlook VBA -editori ohjeiden mukaisesti.Kuinka suorittaa VBA-koodi Outlookissa".
2. Lisää sitten viittaus ”MS Excel Object Libraryyn” lukemalla ”Objektikirjastoviittauksen lisääminen VBA:ssa".
3. Kopioi myöhemmin seuraava koodi moduuliin.

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. Lisää seuraavaksi tämä makro pikatyökalupalkkiin tai nauhaan.
5. Lopuksi voit kokeilla.

• Valitse ensin yhdistettävät tehtävät.
• Napsauta sitten makropainiketta.
• Heti näkyviin tulee uusi tehtävä, jossa on kaikkien alkuperäisten tehtävien rungot rungossa ja jossa käytetään varhaisinta päivämäärää aloituspäivämääränä ja myöhäisintä päivämäärää eräpäivänä, kuten seuraavassa kuvakaappauksessa näkyy.

Vaadi säännöllisten PST-varmuuskopioiden tekemistä

Jos et halua menettää arvokkaita Outlook-tietojasi, on suositeltavaa tehdä säännöllisesti varmuuskopioita Outlook PST -tiedostoistasi. Vain tällä tavalla, kun kärsit PST-korruptiosta, voit päästä eroon vaikeasta PST-korjaus, joka voidaan suorittaa vain vankan työkalun avulla, kuten DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korjaus sql ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com