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 =
[email protected]
objEmail.Subject = “teste”
objEmail.To = [email protected]
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.

Share

    Comments

    1. Há possibilidade de configurar o número fonte de um evento para toda vez que ele for gerado o e-mail ser gerado ou há algum recurso deste tipo ?

    2. Qul servidor SMTP coloco? tem como criar um servidor SMTP no própio Windows.

    3. Como eu faço para colocar um anexo no e-mail?

    Deixe um comentário

    O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

    © 2019 All Rights Reserved. Cooperati. 

    %d blogueiros gostam disto: