Boa Tarde,
Script para envio de e-mail
Nesse artigo ensino a criar um script simples para envio de email como por exemplo informando um erro em um servidor ou acionado por uma tarefa agendada Copie e cole o codigo abaixo em um arquivo txt Alterando os itens em negrito. Salve com a extensão
.vbs
Set objEmail = CreateObject(“CDO.Message”)
objEmail.From = “admin@cfinet.local“
objEmail.Subject = “teste”
objEmail.To = “admin@cfinet.local”
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“) = “SERVIDOR SMTP”
objEmail.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/smtpserverport“) = 25
objEmail.Configuration.Fields.Update
objEmail.Configuration.Fields.Update
objEmail.Send
Abs
* Ajude a organizar melhor o Fórum, dando Feedback sobre a dúvida solicitada, e marcando como Útil e como Resposta, a postagem dos colaboradores que resolveram o seu caso, ou foram úteis *
