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