Discussion :

[minoru]

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 ?

[SilkyRoad]

bonjour

la procedure fonctionne chez moi ( testé avec Office XP & WinXP )
j'ai juste remplacé "FaxFile" par un un nom de fichier existant sur mon poste

par contre je suis surpris que tu ais le message ""un programme essaye d envoyer un mail en votre nom ..." " car tu n'as pas la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

EMail.Send

dans ta macro


bonne soiree
michel