跳到主要内容

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

作者:晓阳 最后修改时间:2018-05-28

在本文中,我将讨论如何在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 发布 免费版本!

体验全新的 Kutools for Outlook 免费版本拥有 70 多项令人难以置信的功能,您可以永久使用! 点击立即下载!

🤖 Kutools人工智能 : 具有人工智能魔力的即时专业电子邮件——一键天才回复、完美语气、多语言掌握。轻松改变电子邮件! ...

📧 电子邮件自动化: 自动回复(适用于 POP 和 IMAP)  /  安排发送电子邮件  /  发送电子邮件时按规则自动抄送/密件抄送  /  自动转发(高级规则)   /  自动添加问候语   /  自动将多收件人电子邮件拆分为单独的消息 ...

📨 电子邮件管理: 撤回电子邮件  /  按主题和其他人阻止诈骗电子邮件  /  删除重复的电子邮件  /  高级搜索  /  合并文件夹 ...

📁 附件专业版批量保存  /  批量分离  /  批量压缩  /  自动保存   /  自动分离  /  自动压缩 ...

🌟 界面魔法: 😊更多又漂亮又酷的表情符号   /  收到重要邮件时提醒您  /  最小化 Outlook 而不是关闭 ...

👍 一键奇迹: 使用传入附件回复全部  /   反网络钓鱼电子邮件  /  🕘显示发件人的时区 ...

👩🏼‍🤝‍👩🏻 通讯录和日历: 从选定的电子邮件中批量添加联系人  /  将联系人组拆分为各个组  /  删除生日提醒 ...

只需单击一下即可立即解锁 Kutools for Outlook -永久免费. 别等了, 立即下载并提高您的效率!

 

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations