C'est vraiment basic pour l'envoie du courriel en tant que tel, faudrait juste mettre une loop avec un dictionnaire et des variables pour monter ca en mass e-mail sender:
Code :
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "monitor1@fabrikam.com"
objEmail.To = "admin1@fabrikam.com"
objEmail.Subject = "Atl-dc-01 down"
objEmail.Textbody = "Atl-dc-01 is no longer accessible over the network."
objEmail.Send
En fait, pour plus d'information, tu peux aller là
http://www.paulsadowski.com/WSH/cdo.htmt'as même un exemple avec une base de donnée access. tres interessant!
