O script abaixo é muito útil para teste de envio de e-mails.
Set
objEmail = CreateObject("CDO.Message")
objEmail.From
= "origem@e-mail.com"
objEmail.Subject
= "E-mail enviado"
objEmail.To
= "destino@e-mail.com"
objEmail.Textbody
= Body
objEmail.Configuration.Fields.Item
_
objEmail.Configuration.Fields.Item
_
"endereço servidor de e-mail"
objEmail.Configuration.Fields.Item
_
objEmail.Configuration.Fields.Update
objEmail.Configuration.Fields.Update
objEmail.Send
Basta criar um arquivo com a extensão .vbs, alterar o endereço de envio, recebimento e o servidor de e-mails.