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

Author: Xiaoyang Last Modified: 2025-08-06

在本文中，我將介紹如何在Outlook中快速輕鬆地將一個或多個約會轉換為任務。

通過拖放將一個約會轉換為任務

使用VBA代碼將多個約會轉換為任務

通過拖放將一個約會轉換為任務

要將一個約會轉換為任務，您只需將該約會拖到任務文件夾即可，請按照以下步驟操作：

1. 在「日曆」窗口中，選擇需要轉換為任務的約會項目，然後將其拖放到導航窗格底部的「任務」圖標上，如下方截圖所示：

2. 然後會顯示一個新的「任務」窗口，請點擊「保存並關閉」按鈕以將此約會保存為任務。
doc appointment to task 2

Outlook中的AI郵件助理：更聰明的回覆，更清晰的溝通（一鍵奇蹟！）免費

使用Kutools for Outlook的AI郵件助理簡化您的日常Outlook任務。這個強大的工具會從您過去的郵件中學習，提供智能且準確的答覆，優化您的郵件內容，並幫助您輕鬆起草和潤色郵件。

此功能支援：

智能回覆：根據您過去的對話獲得量身定制、精確且隨時可用的回覆。
增強內容：自動優化您的郵件文字以提高清晰度和影響力。
輕鬆撰寫：只需提供關鍵字，讓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