Envoi Mail

[Esox]

Bonjour le Forum,

Quelle est la macro la plus simple pour afficher un mail pret à etre envoyé mais sans pièce jointe ?

Merci,

 

[MJ13]

Re : Envoi Mail

Bonjour Esox

Peut-être:

Application.Dialogs(xlDialogSendMail).Show

 

[Esox]

Re : Envoi Mail

Bonjour,

Désolé pour mon retard.
Non cela ne fonctionne pas, il me joint le fichier excel dans le message, et je ne souhaiterai n'ouvrir qu'un message dépourvu de PJ...
Merci à vous...

 

[MJ13]

Re : Envoi Mail

Re

Sinon, teste ce fichier.

 

[DoubleZero]

Re : Envoi Mail

Bonjour, Esox, Michel 😀, le Forum,

Dans les archives d'XLD, il y a également ceci, à condition d'utiliser Outlook.

A bientôt 🙂

 

[MJ13]

Re : Envoi Mail

RE, Bonjour 00

Merci pour ce lien 🙂. ce qui donnerait sur 3 lignes pour Outlook:

Sub TestOutlook()
Set myOlApp = CreateObject("Outlook.Application")
Set myitem = myOlApp.CreateItem(olMailItem)
'With myitem
'.Recipients.Add ("adresse@mail"')
.Subject = "analyse de données "
myitem.Display
'End With
End Sub

 

[Esox]

Re : Envoi Mail

Bonjour à tous,

Je réponds tardivement, désolé... Je vous remercie, c'est ce que j'attendais... il me faut maintenant trouver les différentes lignes de commande pour mettre un texte automatiquement, et supprimer la signature...
Si vous avez des pistes....

Sinon merci bcp...

 

[DoubleZero]

Re : Envoi Mail

Bonjour, Esox, Michel 🙂, le Forum,

mettre un texte automatiquement

Quelques bonnes pistes dans cette discussion.

Bon courage et à bientôt 🙂