Đôi khi, bạn cần hợp nhất nhiều tác vụ thành một tác vụ duy nhất. Trong tác vụ mới, phần thân chứa tất cả nội dung của các tác vụ nguồn và ngày bắt đầu là ngày sớm nhất trong tất cả các ngày của các tác vụ, v.v. Bài viết này sẽ hướng dẫn bạn 2 cách thực hiện.
Khi xử lý nhiều tác vụ Outlook có liên quan đến nhau, bạn có thể muốn hợp nhất chúng thành một tác vụ duy nhất. Tác vụ được hợp nhất mới này cần bao gồm nội dung của tất cả các tác vụ nguồn, sử dụng ngày sớm nhất làm ngày bắt đầu và ngày muộn nhất làm ngày đến hạn, v.v. Sau đây, chúng tôi sẽ giới thiệu 2 cách để thực hiện việc này một cách nhanh chóng.
Phương pháp 1: Hợp nhất nhiều tác vụ theo cách thủ công
- Đầu tiên, hãy tạo một nhiệm vụ mới.
- Sau đó, trong tác vụ mới, hãy chuyển sang tab “Chèn” và nhấp vào nút “Mục Outlook”.
- Tiếp theo, trong cửa sổ bật lên, chọn tác vụ bạn muốn hợp nhất.
- Sau đó chọn tùy chọn “Chỉ văn bản” trong hộp “Chèn dưới dạng”.
- Sau đó, nhấp vào nút “OK”.
- Sau đó, thông tin về nhiệm vụ sẽ được chèn vào phần nội dung của nhiệm vụ mới.
- Bây giờ, bạn cần tìm ngày sớm nhất và mới nhất theo cách thủ công trong số tất cả các ngày trong nội dung.
- Tiếp theo, hãy thay đổi ngày bắt đầu và ngày kết thúc của nhiệm vụ hiện tại.
- Cuối cùng, lưu tác vụ này như bình thường.
Phương pháp 1 sẽ khá rắc rối khi thiết lập ngày bắt đầu và ngày kết thúc của nhiệm vụ được hợp nhất vì bạn phải tự tìm ngày sớm nhất và muộn nhất. Với Phương pháp 2, bạn có thể loại bỏ hoàn toàn rắc rối này.
Cách 2: Hợp nhất nhiều tác vụ qua VBA
- Trước tiên, hãy khởi chạy trình chỉnh sửa VBA của Outlook theo hướng dẫn “Cách chạy mã VBA trong Outlook của bạn".
- Tiếp theo, thêm tham chiếu đến “Thư viện đối tượng MS Excel” bằng cách đọc “Cách thêm tham chiếu thư viện đối tượng trong VBA".
- Sau đó, sao chép đoạn mã sau vào một mô-đun.
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
- Tiếp theo, thêm macro này vào Thanh công cụ truy cập nhanh hoặc ruy-băng.
- Cuối cùng, bạn có thể thử.
- Trước hết, hãy chọn các nhiệm vụ sẽ được hợp nhất.
- Sau đó, nhấp vào nút macro.
- Ngay lập tức, một nhiệm vụ mới sẽ hiển thị, bao gồm toàn bộ nội dung của các nhiệm vụ ban đầu và sử dụng ngày sớm nhất làm ngày bắt đầu, ngày muộn nhất làm ngày đến hạn, như được hiển thị trong ảnh chụp màn hình bên dưới.
Nhấn mạnh vào việc sao lưu PST thường xuyên
Nếu không muốn mất dữ liệu Outlook quý giá của mình, bạn nên tạo bản sao lưu thường xuyên cho các tệp Outlook PST của mình. Chỉ bằng cách này, khi bị hỏng PST, bạn mới có thể thoát khỏi những khó khăn PST sửa chữa, điều này chỉ có thể được thực hiện thông qua một công cụ mạnh mẽ, chẳng hạn như DataNumen Outlook Repair.
Giới thiệu tác giả:
Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm sửa chữa sql và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm