如何在 Outlook 中快速將多個約會轉換為任務？

本文將教您如何在 Outlook 中快速又輕鬆地將單一或多個約會轉換為任務。

透過拖放方式將單一約會轉換為任務

透過套用 VBA 程式碼將多個約會轉換為任務

---

透過拖放方式將單一約會轉換為任務

若要將單一約會轉換為任務，只需將該約會拖曳至任務資料夾即可，請依下列步驟操作：

1. 在「行事曆」視窗中，選取您要轉換為任務的約會項目，並拖放至導航窗格底部的「任務」圖示，如下方截圖所示：

2. 接著會顯示新的「任務」視窗，請點選「儲存並關閉」按鈕，將此約會儲存為任務。

---

透過套用 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

3. 選取您要轉換為任務的約會，然後點擊「執行巨集」按鈕來執行這段程式碼。

4. 接著會彈出「選取資料夾」對話方塊，請選取您要用來儲存轉換結果的「任務」資料夾。

5. 按一下「確定」按鈕，所有選取的約會將轉為任務；接著逐一儲存並關閉「任務」視窗。

6. 現在，您可前往「任務」資料夾，所有選取的約會皆已儲存為任務。