Outlook でメールを送信した際に自動的にタスクを作成する方法は？

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 日後、さらにリマインダーは1 日後の午前9 時に設定されます。これらの設定は必要に応じて変更可能です。

3．コードを保存し、「Alt」＋「Q」キーを押して Microsoft Visual Basic for Applications ウィンドウを閉じてください。

4．これ以降、新規メールまたは返信メールのウィンドウで「送信」ボタンをクリックすると、下記のスクリーンショットのように「タスクの作成」ダイアログボックスが表示されます。「はい」をクリックすると、メールが送信されると同時にタスクが自動的に作成されます。「いいえ」をクリックした場合は、タスクを作成せずにメールのみが送信されます。