Outlook에서 여러 약속을 작업으로 빠르게 변환하는 방법은 무엇입니까?

이 기사에서는 Outlook에서 약속 또는 여러 약속을 작업으로 빠르고 쉽게 변환하는 방법에 대해 설명합니다.

드래그 앤 드롭으로 하나의 약속을 작업으로 변환

VBA 코드를 적용하여 여러 약속을 작업으로 변환

드래그 앤 드롭으로 하나의 약속을 작업으로 변환

하나의 약속을 작업으로 변환하려면 약속을 작업 폴더로 드래그하기 만하면됩니다. 다음과 같이하십시오.

1. 에서 칼렌더 창에서 작업으로 변환해야하는 약속 항목을 선택한 다음 끌어서 놓으십시오. 작업 다음 스크린 샷과 같이 탐색 창 하단에있는 아이콘 :

작업 1에 대한 문서 약속

2. 그런 다음 새로운 태스크 창이 표시되면 클릭하십시오 저장 후 닫기 버튼을 눌러이 약속을 작업으로 저장합니다. 스크린 샷보기 :

작업 2에 대한 문서 약속

VBA 코드를 적용하여 여러 약속을 작업으로 변환

여러 약속을 작업으로 변환해야하는 경우 아래 VBA 코드가 도움이 될 수 있습니다. 다음과 같이하십시오.

1. 누르고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 그런 다음 끼워 넣다 > 모듈, 아래 코드를 복사하여 열린 빈 모듈에 붙여 넣으십시오. 스크린 샷을 참조하십시오.

VBA 코드 : 여러 약속을 작업으로 변환

Sub ConvertAppointmentsToTasks()
Dim xItemCollection As VBA.Collection
Dim xActiveWindow As Object
Dim xItem As Object
Dim xSelection As Outlook.Selection
Dim xTaskFolder As Outlook.Folder
Dim xAppointmentItem As Outlook.AppointmentItem
Dim xTaskItem As Outlook.TaskItem
On Error Resume Next
Set xItemCollection = New VBA.Collection
Set xActiveWindow = Outlook.Application.ActiveWindow
If TypeOf xActiveWindow Is Inspector Then
    Set xItem = xActiveWindow.CurrentItem
    If xItem.Class = olAppointment Then xItemCollection.Add xItem
Else
    Set xSelection = xActiveWindow.Selection
    If xSelection Is Nothing Then Exit Sub
    For Each xItem In xSelection
        If xItem.Class = olAppointment Then xItemCollection.Add xItem
    Next
End If
Set xTaskFolder = Application.Session.PickFolder
If xTaskFolder Is Nothing Then Exit Sub
For Each xAppointmentItem In xItemCollection
    Set xTaskItem = xTaskFolder.Items.Add(olTaskItem)
    With xTaskItem
        .StartDate = Format(xAppointmentItem.Start, "Short Date")
        .DueDate = Format(xAppointmentItem.End, "Short Date")
        .Subject = xAppointmentItem.Subject & " (From Appt)"
        .Categories = xAppointmentItem.Categories
        .Body = xAppointmentItem.Body
        .Save
        .Display
    End With
Next
End Sub

작업 3에 대한 문서 약속