2 Kaedah Pantas untuk Menggabungkan Pelbagai Tugas menjadi Satu Tunggal di Outlook Anda

Kadangkala, anda mungkin perlu menggabungkan berbilang tugasan ke dalam satu tugasan. Dalam tugasan baharu, isi kandungan mengandungi semua isi kandungan semua tugasan sumber dan tarikh mula ialah tarikh terawal antara semua tarikh tugasan dan sebagainya. Kini, artikel ini akan mengajar anda 2 cara.

Apabila berurusan dengan berbilang tugasan Outlook yang saling berkaitan, anda mungkin mahu menggabungkannya secara langsung menjadi satu tugasan. Dan tugasan baharu yang digabungkan harus merangkumi semua badan tugasan sumber dan menggunakan tarikh terawal antara semua tarikh sebagai tarikh mula dan tarikh terkini sebagai tarikh akhir dan sebagainya. Sekarang, berikut, kami akan memperkenalkan 2 cara untuk mendapatkannya dengan cepat.

Kaedah 1: Gabungkan Pelbagai Tugas Secara Manual

1. Di tempat pertama, buat tugas baru.
2. Kemudian, dalam tugas baru, beralih ke tab "Masukkan" dan klik butang "Item Outlook".
3. Seterusnya, di tetingkap pop timbul, pilih tugas yang ingin anda gabungkan.
4. Dan kemudian pilih pilihan "Teks sahaja" di kotak "Masukkan sebagai".
5. Selepas itu, klik butang "OK".
6. Kemudian, maklumat tugas akan dimasukkan ke dalam badan tugas baru.
7. Sekarang, anda perlu mencari tarikh paling awal dan terkini di antara semua tarikh di dalam badan.
8. Seterusnya, ubah tarikh mula dan tarikh akhir tugasan semasa.
9. Akhirnya, simpan tugas ini seperti biasa.

Kaedah 1 akan agak menyusahkan apabila menetapkan tarikh mula dan tarikh akhir tugasan yang digabungkan kerana anda perlu mencari tarikh terawal dan terkini secara manual. Dalam Kaedah 2, anda boleh menyelesaikan masalah ini sepenuhnya.

Kaedah 2: Gabungkan Pelbagai Tugas melalui VBA

1. Sebagai permulaan, lancarkan editor Outlook VBA mengikut "Cara Menjalankan Kod VBA di Outlook Anda".
2. Kemudian, tambahkan rujukan kepada “MS Excel Object Library” dengan membaca “Cara Menambah Rujukan Perpustakaan Objek dalam VBA".
3. Kemudian, salin kod berikut ke dalam 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. Seterusnya, tambahkan makro ini ke Bar Alat Akses Pantas atau pita.
5. Akhirnya, anda boleh mencuba.

• Pertama, pilih tugas yang akan digabungkan.
• Kemudian, klik butang makro.
• Sekaligus, tugasan baharu akan dipaparkan, yang mempunyai semua isi tugasan asal dalam isi dan menggunakan tarikh terawal sebagai tarikh mula, tarikh terkini sebagai tarikh akhir, seperti yang ditunjukkan dalam tangkapan skrin berikut.

Bersikeras Membuat Sandaran PST Berkala

Sekiranya anda tidak mahu kehilangan data Outlook berharga anda, disarankan untuk membuat sandaran biasa untuk fail Outlook PST anda. Hanya dengan cara ini, apabila mengalami rasuah PST, anda dapat menyingkirkan yang sukar Pembaikan PST, yang dapat dicapai hanya melalui alat yang kuat, seperti DataNumen Outlook Repair.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk baiki sql dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com