Outlook에서 여러 작업을 단일 작업으로 병합하는 2 가지 빠른 방법

지금 공유 :

때때로 여러 작업을 하나의 작업으로 병합해야 할 수 있습니다. 새 작업의 본문에는 모든 원본 작업의 본문이 포함되고, 시작일은 모든 작업의 ​​날짜 중 가장 빠른 날짜가 되는 등 모든 요소가 포함됩니다. 이 글에서는 두 가지 방법을 알려드리겠습니다.

서로 연관된 여러 Outlook 작업을 처리할 때, 이들을 하나의 작업으로 병합하고 싶을 수 있습니다. 이때 병합된 작업에는 모든 원본 작업의 본문이 포함되고, 시작일은 가장 빠른 날짜, 마감일은 가장 늦은 날짜 등으로 설정되어야 합니다. 이제 이러한 작업을 빠르게 수행하는 두 가지 방법을 소개합니다.

방법 1 : 여러 작업을 수동으로 병합

  1. 먼저 새 작업을 만듭니다.
  2. 그런 다음 새 작업에서 "삽입"탭으로 이동하고 "Outlook 항목"버튼을 클릭합니다.
  3. 다음으로 팝업 창에서 병합 할 작업을 선택합니다.
  4. 그런 다음 "다음으로 삽입"상자에서 "텍스트 만"옵션을 선택합니다.작업을 텍스트로만 삽입
  5. 그 후“확인”버튼을 클릭합니다.
  6. 나중에 작업 정보가 새 작업의 본문에 삽입됩니다.
  7. 이제 본문의 모든 날짜 중에서 가장 이른 날짜와 최신 날짜를 수동으로 찾아야합니다.
  8. 다음으로, 현재 작업의 시작일과 마감일을 변경하세요.시작일과 마감일을 수동으로 변경
  9. 마지막으로이 작업을 평소와 같이 저장합니다.

방법 1은 병합된 작업의 시작일과 마감일을 설정할 때 가장 빠른 날짜와 가장 늦은 날짜를 수동으로 찾아야 하므로 상당히 번거롭습니다. 방법 2를 사용하면 이러한 번거로움을 완전히 없앨 수 있습니다.

방법 2 : VBA를 통해 여러 작업 병합

  1. 우선, 다음 지침에 따라 Outlook VBA 편집기를 실행하세요.Outlook에서 VBA 코드를 실행하는 방법".
  2. 그런 다음, "MS Excel 개체 라이브러리"를 읽기 위해 참조를 추가합니다.VBA에서 개체 라이브러리 참조를 추가하는 방법".
  3. 나중에 다음 코드를 모듈에 복사하십시오.
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

VBA 코드-여러 작업을 하나의 작업으로 병합

  1. 다음으로이 매크로를 빠른 실행 도구 모음 또는 리본에 추가합니다.
  2. 마지막으로 시도해 볼 수 있습니다.
  • 먼저 병합 할 작업을 선택합니다.
  • 그런 다음 매크로 버튼을 클릭합니다.VBA를 통해 여러 작업 병합
  • 그러면 즉시 새로운 작업이 표시되는데, 이 작업에는 기존 작업들의 내용이 모두 포함되어 있으며, 가장 빠른 날짜를 시작일로, 가장 늦은 날짜를 마감일로 사용합니다(다음 스크린샷 참조).여러 작업에서 병합 된 작업

정기적 인 PST 백업을 고집하십시오.

귀중한 Outlook 데이터를 잃지 않으려면 Outlook PST 파일을 정기적으로 백업하는 것이 좋습니다. 이런 식으로 만 PST 손상으로 고통받을 때 어려운 문제를 제거 할 수 있습니다. PST 수리다음과 같은 강력한 도구를 통해서만 수행 할 수 있습니다. DataNumen Outlook Repair.

저자 소개 :

Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. 수리 SQL 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM

지금 공유 :

댓글이 닫혀있다.