如何在Outlook中快速将多个约会转换为任务？

在本文中，我将讨论如何在Outlook中快速轻松地将一个约会或多个约会转换为任务。

通过拖放将一个约会转换为任务

通过应用VBA代码将多个约会转换为任务

通过拖放将一个约会转换为任务

要将一个约会转换为任务，您只需要将约会拖动到任务文件夹，请按照以下步骤操作：

1。在日历窗口中，选择您需要转换为任务的约会项目，然后将其拖放到任务导航窗格底部的图标，如以下屏幕截图所示：

任务1的doc任命

2。然后一个新的任务显示窗口，请点击 保存并关闭 按钮将该约会另存为任务。看截图：

任务2的doc任命

通过应用VBA代码将多个约会转换为任务

如果您有多个约会需要转换为任务，下面的VBA代码可以帮您一个忙，请执行以下操作：

1。按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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任命