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

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

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

通過應用VBA代碼將多個約會轉換為任務

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

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

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

任務1的doc任命

2。然後一個新的任務顯示窗口，請點擊 保存並關閉 按鈕將該約會另存為任務。看截圖：

任務2的doc任命

通過應用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的doc任命