Outlookでメールを送信するときにタスクを自動的に作成するにはどうすればよいですか？

Author: Siluvia Last Modified: 2025-05-23

場合によっては、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

the screenshot of step about creating a task when sending email in outlook 1

注意: メールの受信者と本文は自動的にタスクの本文に追加されます。タスクの開始日はメールの送信日であり、タスクは3日後に期限が切れます。翌日の午前9時にタスクのリマインダーが表示されます。必要に応じてこれらを変更できます。

3. コードを保存し、「Alt」+「Q」を押してMicrosoft Visual Basic for Applicationsウィンドウを閉じます。

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