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

在Outlook中发送电子邮件时如何自动创建任务?

有时,在Outlook中发送电子邮件时,可能需要自动创建电子邮件任务。 在这里,我们为您提供一种快速完成它的方法。

在带有VBA的Outlook中发送电子邮件时自动创建任务


在带有VBA的Outlook中发送电子邮件时自动创建任务

使用下面的VBA代码,您可以基于Outlook中的发送电子邮件自动创建任务。 请执行以下操作。

1.启动Outlook,按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2。 在里面 Microsoft Visual Basic应用程序 窗口,将下面的VBA代码复制到 本次展望会议 代码窗口。

VBA代码:在Outlook中发送电子邮件时自动创建任务

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by Extendoffice 20181123
    Dim xYesNo As Integer
    Dim xPrompt As String
    Dim xTaskItem As TaskItem
    Dim xRecipient As String
    On Error Resume Next
    xPrompt = "Do you want to create a task for this message?"
    xYesNo = MsgBox(xPrompt, vbYesNo + vbInformation, "Kutools for Outlook")
    Cancel = False
    If xYesNo = vbNo Then Exit Sub
    Set xTaskItem = Application.CreateItem(olTaskItem)
    For Each Rcp In Item.Recipients
        If xRecipient = "" Then
            xRecipient = Rcp.Address
        Else
            xRecipient = xRecipient & vbCrLf & Rcp.Address
        End If
    Next Rcp
    xRecipient = xRecipient & vbCrLf & Item.Body
    With xTaskItem
        .Subject = Item.Subject
        .StartDate = Item.ReceivedTime
        .DueDate = Date + 3 + CDate("9:00:00 AM")
        .ReminderSet = True
        .ReminderTime = Date + 2 + CDate("9:00:00 AM")
        .Body = xRecipient
        .Save
    End With
    Set xTaskItem = Nothing
End Sub

备注:邮件收件人和邮件正文将自动添加到任务正文中。 任务的开始日期是消息的发送日期,任务将在3天内到期。 一天后的9点,您会被提醒执行该任务。 您可以根据需要更改它们。

3.保存代码,然后按 其他 + Q 键以关闭“ Microsoft Visual Basic应用程序”窗口。

4.从现在开始,单击 发送 在新的或已回复的电子邮件窗口中, 创建任务 弹出对话框如下图所示,点击 发送电子邮件并自动创建任务,或单击 没有 发送电子邮件而不创建任务。


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

  • 自动CC / BCC 根据规则发送电子邮件; 自动转发 自定义多封电子邮件; 自动回复 没有交换服务器,还有更多自动功能...
  • BCC警告 -当您尝试全部答复时显示消息 如果您的邮件地址在“密件抄送”列表中; 缺少附件时提醒,还有更多提醒功能...
  • 在邮件对话中回复(全部)带有所有附件; 回复许多电子邮件 很快; 自动添加问候语 回复时将日期添加到主题中...
  • 附件工具:管理所有邮件中的所有附件, 自动分离, 全部压缩,全部重命名,全部保存...快速报告, 计算选定的邮件...
  • 强大的垃圾邮件 习俗 删除重复的邮件和联系人... 使您能够在Outlook中做得更聪明,更快和更好。
拍摄kutools前景kutools选项卡1180x121
拍摄kutools前景kutools加标签1180x121
 
按评论排序
注释 (3)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
有没有办法修改它以包含更多指向已发送邮件的链接,而不仅仅是收件人和主题? IE。 将发送的邮件添加为附件?
该评论由网站上的主持人最小化
HI,

这工作了几天,现在它不再工作了。

有原因吗?
该评论由网站上的主持人最小化
嗨特丽阿莫斯,
请启用启用所有宏选项和将宏安全设置应用于已安装的加载项选项,如下面的屏幕截图所示。 之后,重新启动 Outlook。
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/task.png
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点

关注我们

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