Créer tache Outlook avec "MailEnvelope" Excel

Messages postés
40
Date d'inscription
vendredi 14 juin 2013
Dernière intervention
10 février 2019
-
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
Afficher la suite 

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.