Script para envio de e-mail
Carlos Finet 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.
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 ?
Sim, mas ai basta utilizar o próprio visualizador de eventos do windows 7 ou windows 2008. Procura no site que tem conteúdo bom sobre isso.
Valeu Rafael pela dica!!!
Qul servidor SMTP coloco? tem como criar um servidor SMTP no própio Windows.
No caso seu servidor de email (no nosso caso o Exchange) será seu servidor SMTP.
Como eu faço para colocar um anexo no e-mail?
Boa noite. Infelizmente o Carlos Finet não faz mais parte do nosso quadro de escritores ativos do Cooperati, mas posso lhe ajudar.
Use o Powershell para enviar emails com anexo e mais moderno e seguro
https://docs.microsoft.com/en-us/powershell/module/microsoft.powershell.utility/send-mailmessage?view=powershell-7&WT.mc_id=WDIT-MVP-5003815