Tout d'abord bonjour tout le monde ![:)](https://www.developpez.net/forums/images/smilies/icon_smile.gif)
Voila comme le dit le sujet, je souhaiterais envoier un mail via outloock dans ma macro.
j'y arrive très bien avec outlook fermé et avec une pièce jointe dans mon mail.
Mais dès que je n'en met pas ... j'ai une erreur sur Message.send ![:cry:](https://www.developpez.net/forums/images/smilies/icon_cry.gif)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
Dim MonOutlook As Object
Dim MonMessage As Object
Dim MonFichier As String
'MonFichier = "C:\toto25.txt
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(olMailItem)
MonMessage.To = "monadresse@mail.com"
'MonMessage.Attachments.Add MonFichier
MonMessage.Subject = "test mail suivi de projet" 'sujet du mail
MonMessage.body = corps
MonMessage.Send
Set MonOutlook = Nothing |
Donc voila juste pour récapituler :
- le code marche quand je met ma piece jointe outloock ouvert ou fermé
- le code marche sans pièce jointe et avec outloock ouvert
- le code ne marche pas sans pièce jointe et outloock fermé
![:cry:](https://www.developpez.net/forums/images/smilies/icon_cry.gif)
En espérant que quelqu'un puisse me proposer une solution
Merci d'avance.
Cordialement, Raphael
Partager