quinta-feira, 24 de abril de 2014

Enviando e-mail com VB script!

Olá,

Esta dica é interessante principalmente para quem utiliza arquivos em lote (.bat) ou script para execução de backups ou qualquer outro procedimento que é crítico e sempre que for executado você precisa ou quer saber quando foi executado ou se foi executado. A ideia é, assim que o script for executado você pode programa-lo para enviar um e-mail emitindo um alerta ou a mensagem que desejar.

Primeiro crie um arquivo VB script ou seja, com a extensão .vbs e cole o seguinte código:

Set objEmail = CreateObject("CDO.Message")
objEmail.From = "email_remetente@teste.com"
objEmail.Subject = "Assunto do e-mail"
objEmail.To = "email_destino@teste.com"
objEmail.Textbody = "Descrição do e-mail / Mensagem desejada"
objEmail.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"Endereço IP do servidor SMTP"
objEmail.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Configuration.Fields.Update
objEmail.Send

Preencha o arquivo com as informações: e-mail remetente, e-mail destinatário a descrição da mensagem e o endereço IP do seu servidor SMTP.

Feito isto você pode executar o script e checar se irá receber o e-mail conforme configurado no script, é importante lembrar que alguns softwares de antivírus podem  bloquear a porta 25 de envio de e-mail, para resolver basta desbloquear ou alterar o número da porta conforme a configuração do seu servidor.

Qualquer dúvida basta publica-la no campo de comentários.

Att,
César

2 comentários:

  1. Cara não funcionou na rede corporativa da minha empresa, erro de compilação 800a0401

    ResponderExcluir
    Respostas
    1. Assim como mencionei no post, alguns antivírus bloqueiam a porta 25 para não acontecer de propagar spam, outra coisa que é importante para o funcionamento é, no meu exemplo o servidor SMTP não é autenticado ou seja eu posso colocar qualquer e-mail que ele irá enviar sem nenhum problema, agora se o seu servidor de e-mail de onde você trabalha for autenticado você terá que adequar o script para modo autenticado. Acredito que revendo estes itens você conseguirá enviar e-mail via script sem nenhum problema.

      Excluir