Resalut g trouver aussi ce script
dans ce forum
http://www.paulsadowski.com/WSH/cdo.htm#LoadFromFile
je crois que c'est le plus correcte car il utilise un serveur smpt moi j'ai choisi ce luis
de gmail (google) : gsmtp183.google.com
mais la j'ai ressu cette erreur
ligne :24
caract :1
erreur :le serveur a rejeté une ou plusieurs addresses de destinataires.............
code :8004020f

es que vous pouvais m'aider ??? svp
merci voila le code :



Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Example CDO Message"
objMessage.From = "me@my.com"
objMessage.To = "adresse@gmail.fr"
objMessage.TextBody = "This is some sample message text."

'==This section provides the configuration information for the remote SMTP server.
'==Normally you will only change the server name or IP.
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") = "gsmtp183.google.com"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==

objMessage.Send

objMessage.Send

Pour répondre à ta question il faut que tu es un serveur SMTP, avec hMailServer cela est possible regarde sur ce site il t'explique comment le configurer http://www.jdl68160.com/informatique/hmail/config.htm tout ceci est gratuit. Ensuite pour le script j'en ai fait un automatique, qui te demande tous les détails. Pour ton serveur SMTP marque SMTP. ton fournisseur d'accès à Internet.fr de toute façon mon script le fait automatiquement en te demandant ton FAI.

Le voilà :

dim adresseenvoyeur
dim recepteur
dim sujet
dim message
dim copie
dim PJ
dim smtp
dim fournisseur
dim fr
smtp=("smtp.")
fr=(".fr")
adresseenvoyeur=inputbox("Adresse de l'émetteur du message")
recepteur=inputbox("Adresse du récepteur")
copie=inputbox("Adresse du récepteur de la copie du message(falcutatif)")
sujet=inputbox("Sujet du message")
message=inputbox("Ton message")
PJ=inputbox("Veux tu une pièce jointe si oui marque le chemin çi dessous")
fournisseur=inputbox("Ton fornisseur d'accès à Internet est :")
msgbox("L'émetteur du message : "&(adresseenvoyeur) &(Chr(13))&"Le recepteur : "&(recepteur) &(Chr(13))&"Le recepteur de la copie du message : "&(copie) &(Chr(13))&"Le sujet du message : "&(sujet) &(Chr(13))&"Ton message envoyé : "&(message) &(Chr(13))&"Pièce jointe au message : "&(PJ) &(Chr(13))&"Ton message est prêt à etre envoyé.")
With CreateObject("CDO.Message")
.From=(adresseenvoyeur)
.To=(recepteur)
.CC=(copie)
.Subject=(sujet)
.TextBody=(message)
.AddAttachment(PJ)
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") =((smtp&fournisseur&fr))
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
On Error Resume Next
.Send
If Err.Number <>0 Then
MsgBox Err.Description,16,"Erreur"
End If
msgbox "mail bien envoyé"
On Error GoTo 0
End With

En espérant que cela aidera quelqu'un.