Bonjour,
Je désire envoyer un mail via un script comme ci-dessous, mais il ne se passe rien ! Je ne vois pas vraiment le blème, avant l'installation du service smtp sur ma machine j'avais une erreur sur la ligne "objMessage.Send", maintenant je n'ai pas de message mais pas de mail non plus dans ma boite de test.
Il doit sûrement manquer quelque chose ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = "Example CDO Message" 
objMessage.From = "toto@yopmail.com" 
objMessage.To = "toto@yopmail.com" 
objMessage.TextBody = "Test pour exp‚dier un message en Vbs !" 
objMessage.Send
Merci d'avance pour vos infos, Rb