Créer tache Outlook avec "MailEnvelope" Excel

Signaler
Messages postés
47
Date d'inscription
vendredi 14 juin 2013
Statut
Membre
Dernière intervention
18 juin 2020
-
Bonjour,
J'envoi tous les jours un mail via Excel avec ce code (qui fonctionne très bien) :

Sub Mail()
    ActiveWorkbook.EnvelopeVisible = True
        With ActiveSheet.MailEnvelope
            .Item.TO = "xxxxxx.xxxxxx@xxxxxx.fr"
            .Item.CC = ""
            .Item.BCC = ""
            .Item.Subject = "Modifications données"
            .Introduction = "Bonjour," & VBA.Chr(10) & VBA.Chr(13) & "Nouveau tableau pour MAJ."
            .Item.Send
        End With
End sub


J'aimerais que le mail s'ajoute automatiquement dans mes tâches Outlook (pendant ou après l'envoi).

Si je mets
.Item.Display
j'ai la possibilité de cliquer sur le drapeau.


Mais moi je que que ça se fasse automatiquement et que le mail s'envoi directement.
Alors, j'ai essayé en utilisant "
.Item.FlagRequest = "Assurer un suivi"
" mais ça ne fonctionne pas.

Auriez vous une idée svp ?
Merci d'avance