Envio de e-mail sem autenticação via vbscript

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 _

 ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

objEmail.Configuration.Fields.Item _

 ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _

"endereço servidor de e-mail"

objEmail.Configuration.Fields.Item _

 ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

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.