Help envoi de fichiers!!!

Bonjour,
Bonjour,

Je fais appel à vous car je bloque sur un script pour envoyer un fichier (qui se touve sur mon bureau) automatiquement vers mon adresse mail tous les jours à la meme heure.

Le problème est que mon adresse est chez hotmail. Apparement il n'y a pas de serveur smtp ce qui pose problème pour le script suivant. En plus dans la ligne from je ne sais pas quoi mettre!

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="chemin de mon fichier"
.To="mon adresse"
.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.