• Initiateur de la discussion Initiateur de la discussion babou
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

B

babou

Guest
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Retour