Bonjour,

j ai un code qui me permettais d'ouvrir un mail depuis excel via outlook. Il marchait bien ya quelques semaines mais depuis il ne fonctionne que lorsque Outlook est prealablement ouvert.

Si outlook est ferme, au lieu du message "un programme essaye d envoyer un mail en votre nom ..." j 'ai le message d'erreur suivant,

Run time error '-2147287037(80030003)' The operation failed.

Mon code est le suivant:

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
17
18
19
20
21
22
23
Dim MyOutlook As Object
  Set MyOutlook = CreateObject("Outlook.Application")
  'MyOutlook.ActiveWindow
  Dim EMail As Object
  Set EMail = MyOutlook.CreateItem(olMailItem)
 
  EMail.To = "bob@test.com"
  EMail.Subject = "Enquery"
  EMail.Attachments.Add (FaxFile)
  EMail.Body = "" & Chr(10) & _
                "" & Chr(10) & _
                "Hello M." & _
               "Could you please advise best price and delivery" & Chr(10) & _
               "For attached enquiry" & Chr(10) & _
               "" & Chr(10) & _
                "" & Chr(10) & _
               "Regards," & Chr(10)
 
  EMail.Display
  Set EMail = Nothing
 
 
End Sub
Avez vous une idee de ce qui aurait pu provoquer ce probleme ?