Note: The other languages of the website are Google-translated. Back to English

如何在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任命

3。 然后选择您想要转换为任务的约会,然后单击 运行宏 按钮以运行此代码,请参见屏幕截图:

任务4的doc任命

4。 然后一个 选择“文件夹” 对话框将弹出,选择一个 任务 要保存转换结果的文件夹,请参见屏幕截图:

任务5的doc任命

5。 然后点击 OK 按钮,所有选定的约会都将创建为任务,然后应保存并关闭 任务 窗口一一显示,请参见屏幕截图:

任务6的doc任命

6。 然后,您可以转到 任务 文件夹中,所有选定的约会都已保存为新任务,请参见屏幕截图:

任务7的doc任命


Kutools for Outlook-为Outlook带来100个高级功能,并使工作更加轻松!

  • 自动CC / BCC 根据规则发送电子邮件; 自动转发 自定义多封电子邮件; 自动回复 没有交换服务器,还有更多自动功能...
  • BCC警告 -当您尝试全部答复时显示消息 如果您的邮件地址在“密件抄送”列表中; 缺少附件时提醒,还有更多提醒功能...
  • 在邮件对话中回复(全部)带有所有附件; 回复许多电子邮件 很快; 自动添加问候语 回复时将日期添加到主题中...
  • 附件工具:管理所有邮件中的所有附件, 自动分离, 全部压缩,全部重命名,全部保存...快速报告, 计算选定的邮件...
  • 强大的垃圾邮件 习俗 删除重复的邮件和联系人... 使您能够在Outlook中做得更聪明,更快和更好。
拍摄kutools前景kutools选项卡1180x121
拍摄kutools前景kutools加标签1180x121
 
按评论排序
注释 (0)
还没有评分。 成为第一位评论!
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点

关注我们

版权所有 © 2009 - extendoffice.com。 | 版权所有。 供电 ExtendOffice。 | 网站地图
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家的商标或注册商标。
受Sectigo SSL保护