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
___________________________________________________________________
Esse script requer que seu servidor SMTP não peça autenticação.
Sou Carlos Finet, adoro tecnologia, entre minhas áreas de atuação estão implantação, administração de produtos Microsoft Windows Client e Windows Server tanto em cenários voltados para infra quanto para cloud, sou Microsoft Certified Trainer (MCT) onde por mais de uma década preparei profissionais para aprovação em exames Microsoft. Em meu currículo estão diversas certificações como o MCSA e MCSE.
Precisa de uma ajuda para o seu projeto entre em contato com minha empresa de consultoria www.finet.com.br