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

Author: Xiaoyang Last Modified: 2025-08-06

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

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

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

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

하나의 약속을 작업으로 변환하려면, 약속을 작업 폴더로 드래그하기만 하면 됩니다. 다음과 같이 진행하세요:

1. "캘린더" 창에서 작업으로 변환해야 할 약속 항목을 선택한 다음, 아래 스크린샷에 표시된 대로 탐색 창 하단의 "작업" 아이콘으로 드래그 앤 드롭합니다:

2. 그러면 새 "작업" 창이 표시됩니다. "저장하고 닫기" 버튼을 클릭하여 이 약속을 작업으로 저장하세요.
doc appointment to task 2

아웃룩의 AI 메일 도우미: 더 스마트한 답장, 더 명확한 커뮤니케이션 (한 번의 클릭으로 끝내기!) ⚡ 무료

Kutools for Outlook의 AI 메일 도우미로 매일 처리하는 아웃룩 작업을 간소화하세요. 이 강력한 도구는 과거 이메일을 학습하여 지능적이고 정확한 답변을 제공하고, 이메일 내용을 최적화하며, 초안 작성 및 메시지 수정을 쉽게 도와줍니다.

이 기능은 다음을 지원합니다:

스마트 답장: 과거 대화를 기반으로 맞춤형, 정확한 답변을 받아보세요. 바로 사용할 수 있습니다.
개선된 콘텐츠: 이메일 텍스트를 자동으로 다듬어 명확도와 영향력을 높여보세요.
손쉬운 작문: 키워드만 제공하면 AI가 나머지를 처리해 다양한 작문 스타일로 도와줍니다.
지능적인 확장: 맥락에 맞는 제안으로 생각을 확장하세요.
요약 기능: 긴 이메일의 간결한 요약본을 즉시 받아보세요.
글로벌 도달: 이메일을 손쉽게 다른 언어로 번역하세요.

이 기능은 다음을 지원합니다:

스마트 이메일 답장
최적화된 콘텐츠
키워드 기반 초안 작성
지능적인 콘텐츠 확장
이메일 요약
다국어 번역

가장 좋은 점은 이 기능이 영원히 완전 무료라는 것입니다! 기다리지 말고 지금 AI 메일 도우미를 다운로드하고 즐겨보세요!

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

여러 약속을 작업으로 변환해야 하는 경우, 아래 VBA 코드가 도움이 될 수 있습니다. 다음 단계를 따르세요:

1. "Alt + F11" 키를 눌러 "Microsoft Visual Basic for Applications" 창을 엽니다.

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