quarta-feira, 22 de junho de 2016

Envio de e-mail sem autenticação com vbs


As vezes é preciso testar a configuração de um software ou o envio de e-mails em autenticação.

Para fazer isso você pode criar um arquivo .vbs e colar o texto abaixo, lembrando de alterar os campso em vermelho.

Set objEmail = CreateObject("CDO.Message")
objEmail.From = "endereco remetente"
objEmail.Subject = "E-mail enviado"
objEmail.To = "E-mail de quem irá receber"
objEmail.Textbody = Body

objEmail.Configuration.Fields.Item
objEmail.Configuration.Fields.Item _
"Servidor de e-mail"
objEmail.Configuration.Fields.Item _
objEmail.Configuration.Fields.Update
objEmail.Configuration.Fields.Update
objEmail.Send

Nenhum comentário:

Postar um comentário