Error 429 ????

[babou]

Bonjour le forum,
J'ai voulu tester la proc donnee par Thierry a l'adresse suivante :

http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=16441&t=16362

Pour info, celui-ci est :

Sub SendEMailwithAttachments()
Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.to = "Toto@toto.com"
myItem.Subject = "Test Mail"
myItem.Body = "Hello Word." & Chr(13) & Chr(13) & "Bye All"
Set myAttachments = myItem.Attachments
myAttachments.Add "C:\mes documents\Toto1.pdf"
myAttachments.Add "C:\mes documents\Toto1.xls"
MsgBox "Now sending to " & myItem.to
myItem.Send
Set ol = Nothing
End Sub

En effet, j'aimerais envoyer un mail en automatique via excel en utilisant Outlook. Le but etant que je lance un batch, et j'aimerais etre prevenu si le batch s'est correctement execute ou pas.

Et j'ai un probleme a l'execution. xl me dit :

"Run-time error '429'
ActiveX component can't create object"

J'ai cherche sur le forum et le web une solution a cette erreur et n'en ai trouve aucune.

Auriez-vous une idee svp ?

Merci.
Babou.

PS : j'ai fait référence à la library OUTLOOK avant ... (Microsoft Office 9.0 Object Library). Je suis sous windows 2000 et utilise excel 2000.

 

[dIDIER 2]

saput
redarde dans OUTLOOK la fonctoin mapi ou imap

c'est là normalement que cela coince
crdlt
Didier 2