none
Macro para Envio de Email Automático no Outlook RRS feed

  • Pergunta

  • Bom dia,

    Alguém conhece algum script para que todos os dias em um determinado horário seja encaminhada uma nova mensagem para um endereço de e-mail?

    Detalhando: encaminharei uma mensagem todos os dias às 08:00 hs da manhã para meu endereço do hotmail.

    Este procedimento visa eliminar o checklist do servidor exchange.Uma vez recebida com sucesso a mensagem no hotmail, significa que não tenho problemas, por exemplo com DNS reverso.

    Obrigado!

    ,


    quinta-feira, 28 de abril de 2011 13:42

Respostas

  • Bom dia Rafael,

    Se seu servidor SMTP interno não exigir autenticação para enviar e-mail de dentro da sua rede corporativa o script abaixo é o que precisa. Salve em um arquivo com extenção .vbs e agende uma tarefa para executá-lo nos horários que desejar.

    '-------- INICIO do Sscript ------------------------

    SMTPServer = "Nome_DNS_seu_servidor_smtp"
    Recipient = "seu-email@hotmail.com"
    From = "remetente_seu_Email_do_dominio"
    Subject = "Assunto da mensagem"

    Sub GenericSendmail (SMTPserver, From, Recipient, Subject, Message)

    set msg = WScript.CreateObject("CDO.Message")
    msg.From = From
    msg.To = Recipient
    msg.Subject = Subject
    msg.TextBody = "A mensagem foi enviada da rede internar em : " & (Date) & " - " & (Time)


    msg.Configuration.Fields ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer
    msg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

    msg.Configuration.Fields.Update

    msg.Send

    End Sub

    '-------- FIM do Sscript ------------------------

    Qualquer dúvida post para que possamos lhe ajudar.

     

    Se lhe foi útil, vote e marque como resposta!


    Elmo Baraúna, SSA-Ba - FSCTP / MCP / MCDST / MCSA / MCT

    http://infraestruturaealgomais.blogspot.com

    • Marcado como Resposta Richard Juhasz quarta-feira, 4 de maio de 2011 14:50
    sexta-feira, 29 de abril de 2011 14:03

Todas as Respostas

  • Bom dia Rafael,

    Se seu servidor SMTP interno não exigir autenticação para enviar e-mail de dentro da sua rede corporativa o script abaixo é o que precisa. Salve em um arquivo com extenção .vbs e agende uma tarefa para executá-lo nos horários que desejar.

    '-------- INICIO do Sscript ------------------------

    SMTPServer = "Nome_DNS_seu_servidor_smtp"
    Recipient = "seu-email@hotmail.com"
    From = "remetente_seu_Email_do_dominio"
    Subject = "Assunto da mensagem"

    Sub GenericSendmail (SMTPserver, From, Recipient, Subject, Message)

    set msg = WScript.CreateObject("CDO.Message")
    msg.From = From
    msg.To = Recipient
    msg.Subject = Subject
    msg.TextBody = "A mensagem foi enviada da rede internar em : " & (Date) & " - " & (Time)


    msg.Configuration.Fields ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer
    msg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

    msg.Configuration.Fields.Update

    msg.Send

    End Sub

    '-------- FIM do Sscript ------------------------

    Qualquer dúvida post para que possamos lhe ajudar.

     

    Se lhe foi útil, vote e marque como resposta!


    Elmo Baraúna, SSA-Ba - FSCTP / MCP / MCDST / MCSA / MCT

    http://infraestruturaealgomais.blogspot.com

    • Marcado como Resposta Richard Juhasz quarta-feira, 4 de maio de 2011 14:50
    sexta-feira, 29 de abril de 2011 14:03
  • E se for necessário estar logado na rede interna?

    No meu caso, meu email fica logado e eu gostaria de enviar um determinado email numa determinada hora.


    JnCruz

    segunda-feira, 24 de fevereiro de 2014 15:47