Tout d'abord bonjour tout le monde

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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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é

En espérant que quelqu'un puisse me proposer une solution

Merci d'avance.

Cordialement, Raphael