Script pour envoi de mails automatique

Bonjour,

Je fais appel à vous car je bloque sur un script pour envoyer un fichier (qui se touve sur mon bureau) automatiquement de mon adresse mail vers une autre adresse mail.

Le problème est que mon adresse est chez hotmail et mon destinataire aussi. Apparement il n'y a pas de serveur smtp ce qui pose problème pour le script suivant.

voici le script que j'ai trouvé sur un site internet:

On Error Resume Next
With CreateObject("CDO.Message")
If Err Then
MsgBox "CDO non installé"
Else
.From="mon addresse"
.To="adresse destinataire"
.Subject="test"
.TextBody="test"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.fai.fr"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
.AddAttachment("document texte")
.Send
If Err Then MsgBox "Le message n'a pas pu être expédié."
End If
On Error GoTo 0
End With

Avez vous une solution ou une autre méthode?

Merci.