I hope not accuse me of spammer for posting this simple script, works with a simple SMTP authentication method
can be very useful for maintenance scripts or ads:

Set objEmail = CreateObject("CDO.Message")
objEmail.From = "direccionemailorigen"
objEmail.To = "direccionemaildestino"
objEmail.Subject = "Asunto....."
objEmail.Textbody = "Cuerpo del mensaje ...."
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") =  "smtpserver"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "dominio\usuario"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "contraseña"
objEmail.Configuration.Fields.Update
objEmail.Send
Facebooktwittergoogle_plusredditpinterestlinkedinmail