Envoi d'un mail avec un script vbs.

Bonjour,
Je désire envoyer un mail avec un scripte vbs. J'ai longhtemp chercher sur internet et j'ai trouver deux scripte, je les ai donc réadapté mais aucun des deux ne fonctionne lorsque depuis la fenêtre executer je tape "wscript c:\scripte\scripte1.vbs" ou " "wscript c:\scripte\scripte2.vbs".

Pourriez vous me dire ou est mon erreur?

Dans les deux cas rien ne se passe, aucun mail n'est envoyé...

Scripte1:

Set Email = CreateObject("CDO.Message")
Email.From = ***********
Email.To = ***********
Email.Subject = "Le sujet de test"
Email.Textbody = "Le texte test"
Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")= ***********
Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Email.Configuration.Fields.Update
Email.Send

Scripte2:

With CreateObject("CDO.Message")
.From="***********"
.To="***********"
.Subject="Le sujet de test"
.TextBody="Le texte de test"

.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "***********"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
On Error Resume Next
.Send
If Err Then MsgBox "Le message n'a pas pu être expédié."
On Error GoTo 0
End With

Pourriez vous me dire ou est mon erreur et si un des scriptes est meilleur que l'autre?