如何在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。 然後點擊 OK 按鈕，所有選定的約會都將創建為任務，然後應保存並關閉 任務 窗口一一顯示，請參見屏幕截圖：

6。 然後，您可以轉到 任務 文件夾中，所有選定的約會都已保存為新任務，請參見屏幕截圖：