2 วิธีด่วนในการรวมงานหลายงานเข้าเป็นงานเดียวใน Outlook ของคุณ

โซลูชัน Outlook September 29, 2025

บางครั้ง คุณอาจจำเป็นต้องรวมงานหลายๆ งานเข้าเป็นงานเดียว ในงานใหม่นี้ เนื้อหาจะประกอบด้วยเนื้อหาทั้งหมดของงานต้นฉบับ และวันที่เริ่มต้นจะเป็นวันที่เก่าที่สุดในบรรดาวันที่ทั้งหมดของงานเหล่านั้น เป็นต้น บทความนี้จะสอนวิธีการ 2 วิธี

เมื่อต้องจัดการกับงาน Outlook หลายงานที่เกี่ยวข้องกัน คุณอาจต้องการรวมงานเหล่านั้นเข้าเป็นงานเดียวโดยตรง และงานที่รวมกันใหม่ควรมีเนื้อหาของงานต้นฉบับทั้งหมด โดยใช้วันที่ที่เก่าที่สุดเป็นวันที่เริ่มต้น และวันที่ล่าสุดเป็นวันที่ครบกำหนด เป็นต้น ต่อไปนี้เราจะแนะนำ 2 วิธีที่จะช่วยให้คุณทำเช่นนั้นได้อย่างรวดเร็ว

วิธีที่ 1: ผสานหลายงานด้วยตนเอง

ในตอนแรกให้สร้างงานใหม่
จากนั้นในงานใหม่ให้เปิดแท็บ“ แทรก” แล้วคลิกปุ่ม“ รายการ Outlook”
จากนั้นในหน้าต่างป๊อปอัพให้เลือกงานที่คุณต้องการผสาน
จากนั้นเลือกตัวเลือก "ข้อความเท่านั้น" ในช่อง "แทรกเป็น"
หลังจากนั้นคลิกปุ่ม“ ตกลง”
จากนั้นข้อมูลของงานจะถูกแทรกลงในเนื้อหาของงานใหม่
ตอนนี้คุณต้องหาวันที่เร็วที่สุดและล่าสุดจากวันที่ทั้งหมดในร่างกายด้วยตนเอง
ถัดไป ให้เปลี่ยนวันที่เริ่มต้นและวันที่ครบกำหนดของงานปัจจุบัน
สุดท้ายบันทึกงานนี้ตามปกติ

วิธีที่ 1 จะค่อนข้างยุ่งยากในการกำหนดวันที่เริ่มต้นและวันครบกำหนดของงานที่รวมกัน เนื่องจากคุณต้องค้นหาวันที่เร็วที่สุดและวันที่ช้าที่สุดด้วยตนเอง ในวิธีที่ 2 คุณสามารถขจัดปัญหาดังกล่าวได้อย่างสิ้นเชิง

วิธีที่ 2: ผสานหลายงานผ่าน VBA

ขั้นแรก ให้เปิดตัวแก้ไข VBA ของ Outlook ตามขั้นตอนต่อไปนี้ “วิธีเรียกใช้รหัส VBA ใน Outlook ของคุณ"
จากนั้น เพิ่มการอ้างอิงไปยัง “MS Excel Object Library” โดยการอ่าน “วิธีการเพิ่มการอ้างอิงไลบรารีอ็อบเจ็กต์ใน VBA"
ต่อมาคัดลอกโค้ดต่อไปนี้ลงในโมดูล

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

จากนั้นเพิ่มมาโครนี้ลงในแถบเครื่องมือด่วนหรือริบบิ้น
สุดท้ายคุณสามารถลอง

ก่อนอื่นให้เลือกงานที่จะผสาน
จากนั้นคลิกปุ่มมาโคร
ทันทีที่เริ่มงานใหม่ งานใหม่จะปรากฏขึ้น โดยงานใหม่นี้จะมีเนื้อหาทั้งหมดของงานเดิม และใช้Dวันที่เก่าที่สุดเป็นวันที่เริ่มต้น และวันที่ใหม่ที่สุดเป็นวันครบกำหนด ดังแสดงในภาพหน้าจอต่อไปนี้

ยืนยันในการสำรองข้อมูล PST ตามปกติ

หากคุณไม่ต้องการสูญเสียข้อมูล Outlook ที่มีค่าขอแนะนำให้ทำการสำรองข้อมูลเป็นประจำสำหรับไฟล์ Outlook PST ของคุณ ด้วยวิธีนี้เมื่อได้รับความเดือดร้อนจากการทุจริต PST คุณสามารถกำจัดเรื่องยากได้ ซ่อม PSTซึ่งสามารถทำได้โดยใช้เครื่องมือที่มีประสิทธิภาพเท่านั้นเช่น DataNumen Outlook Repair.

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ ซ่อมแซม sql และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.