envoi de mail

Bonjour,

je voudrai envoyer une piece jointe par mail (sans utilisation du smtp).
j'ai un morceau de code, mais je ni arrive pas.
si qu'elqu'un a meme juste de la doc.
Merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Set objEmail = CreateObject("CDO.Message")   objEmail.From = "usre1@toto.fr" objEmail.To = "user2@toto.fr" objEmail.Subject = "service is down" objEmail.Textbody = "etat du service outlook" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _ "smarthost" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Update   objEmail.Send

---

voici mon message d'erreur

"le transport à ecoué dans sa connexion au serveur"

Salut,

Pour envoyer un message, je ne vois pas trop comment faire pour l'envoyer sans serveur...

Sinon, j'ai ca qui ressemble à ton code + piece jointe :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "Example CDO Message" objMessage.From = "me@my.com" objMessage.To = "test@test.tst" objMessage.TextBody = "This is some sample message text."   '== C'est là qu'on précise la piece jointe... objMessage.AddAttachment "c:\temp\readme.txt"   objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2   'Name or IP of Remote SMTP Server objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.myserver.com"   'Server port (typically 25) objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25   objMessage.Configuration.Fields.Update   objMessage.Send

---

Perso, j'utilise un composant externe et surtout mon serveur SMTP.