在Outlook中發送電子郵件時如何自動創建任務？
有時，在Outlook中發送電子郵件時，可能需要自動創建電子郵件任務。 在這裡，我們為您提供一種快速完成它的方法。
在帶有VBA的Outlook中發送電子郵件時自動創建任務
使用下面的VBA代碼，您可以基於Outlook中的發送電子郵件自動創建任務。 請執行以下操作。
1.啟動Outlook，按 其他 + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。
2。 在裡面 Microsoft Visual Basic for Applications 窗口中，將下面的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中做得更聰明，更快和更好。
