Comment créer automatiquement une tâche lors de l’envoi d’un e-mail dans Outlook ?

Il peut arriver que vous ayez besoin de créer automatiquement une tâche à partir d’un e-mail au moment où vous l’envoyez dans Outlook. Découvrez ici une méthode simple et rapide pour y parvenir.

Créer automatiquement une tâche lors de l’envoi d’un e-mail dans Outlook avec VBA

---

Créer automatiquement une tâche lors de l’envoi d’un e-mail dans Outlook avec VBA

Grâce au code VBA ci-dessous, créez automatiquement une tâche à partir d’un e-mail envoyé dans Outlook. Voici la marche à suivre.

1. Lancez Outlook, puis appuyez sur « Alt » + « F11 » pour ouvrir la fenêtre « Microsoft Visual Basic pour Applications ».

2. Dans la fenêtre « Microsoft Visual Basic pour Applications », copiez le code VBA ci-dessous dans la fenêtre de code « ThisOutlookSession ».

Code VBA : Créer automatiquement une tâche lors de l’envoi d’un e-mail dans 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

Remarque : les destinataires du message et le corps du message seront ajoutés automatiquement au corps de la tâche. La Date de début de la tâche correspond à la date d’envoi du message, et la tâche devra être effectuée dans les 3 jours. Un rappel vous sera envoyé à 9 heures le lendemain. Vous pouvez modifier ces paramètres selon vos besoins.

3. Enregistrez le code, puis appuyez sur « Alt » + « Q » pour fermer la fenêtre Microsoft Visual Basic pour Applications.

4. Désormais, dès que vous cliquez sur le bouton « Envoyer » dans une nouvelle fenêtre d’e-mail ou dans une réponse, une boîte de dialogue « Créer une tâche » s’affiche, comme illustré ci-dessous. Cliquez sur « Oui » pour envoyer l’e-mail et créer automatiquement une tâche, ou sur « Non » pour envoyer l’e-mail sans créer de tâche.