Outlook .. sendmail ... comment faire valider envoi par user ?
1 réponse
Vader
Bonjour,
J'essaye de faire une macro qui envoi un email et j'ai un soucis : Comment
faire pour que l'email soit envoyé par le user (faire apparaitre la fenetre
d'email classique ?
Pour l'instant j'utilise la méthode suivante :
Set MItem = OutlookApp.CreateItem(olMailItem)
With MItem
.To = EmailAddr
.Subject = Subj
.Body = Msg
.Send
End With
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Bonjour. Remplace : .Send par : .Display Cordialement. Daniel "Vader" a écrit dans le message de news:
Bonjour,
J'essaye de faire une macro qui envoi un email et j'ai un soucis : Comment faire pour que l'email soit envoyé par le user (faire apparaitre la fenetre d'email classique ?
Pour l'instant j'utilise la méthode suivante :
Set MItem = OutlookApp.CreateItem(olMailItem) With MItem .To = EmailAddr .Subject = Subj .Body = Msg .Send End With
Merci !!!
Antoine
Bonjour.
Remplace :
.Send
par :
.Display
Cordialement.
Daniel
"Vader" <Vader@discussions.microsoft.com> a écrit dans le message de news:
67FDF6F2-7A84-4345-87F3-C3598E18E25F@microsoft.com...
Bonjour,
J'essaye de faire une macro qui envoi un email et j'ai un soucis : Comment
faire pour que l'email soit envoyé par le user (faire apparaitre la
fenetre
d'email classique ?
Pour l'instant j'utilise la méthode suivante :
Set MItem = OutlookApp.CreateItem(olMailItem)
With MItem
.To = EmailAddr
.Subject = Subj
.Body = Msg
.Send
End With
Bonjour. Remplace : .Send par : .Display Cordialement. Daniel "Vader" a écrit dans le message de news:
Bonjour,
J'essaye de faire une macro qui envoi un email et j'ai un soucis : Comment faire pour que l'email soit envoyé par le user (faire apparaitre la fenetre d'email classique ?
Pour l'instant j'utilise la méthode suivante :
Set MItem = OutlookApp.CreateItem(olMailItem) With MItem .To = EmailAddr .Subject = Subj .Body = Msg .Send End With