如何在 Outlook 中发送邮件时自动生成任务？

有时，您可能希望在发送邮件的同时，自动将该邮件生成一个任务。以下为您提供一种快速实现的方法。

使用 VBA 在 Outlook 中发送邮件时自动创建任务

---

使用 VBA 在 Outlook 中发送邮件时自动创建任务

通过以下 VBA 代码，您可以在 Outlook 中根据已发送邮件自动创建任务。请按照以下步骤操作。

1. 启动 Outlook 后，按下“Alt”+“F11”组合键，即可打开“Microsoft Visual Basic for Applications”窗口。

2. 在“Microsoft Visual Basic for Applications”窗口中，将以下 VBA 代码粘贴到“ThisOutlookSession”代码窗口中。

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. 保存代码后，按下“Alt”+“Q”即可关闭 Microsoft Visual Basic for Applications 窗口。

4. 从现在起，在新建或回复邮件窗口点击“发送”按钮后，将弹出如下截图所示的“创建任务”对话框。点击“是”将自动发送邮件并创建任务，点击“否”则仅发送邮件，不会创建任务。