none
Script VBS envio de e-mail (Outlook Express) RRS feed

  • Pergunta

  • Olá pessoal,

     

    Preciso de um help para a seguinte tarefa.

     

    Tenho uma conta do Gmail configurada no Outolook Express 6 ok, até aí beleza, consigo enviar e receber e-mails manualmente a partir desta configuração sem problemas.

     

    O que preciso, é de um script VBS para fazer automaticamente isso pra mim, devido aos testes de envio/recebimento de e-mail que preciso fazer várias vezes durante o dia. Imagino que com um script VBS criado e configurado corretamente, posso criar uma Schedule Task no próprio Windowns e configurá-la para executar este script nos horários que preciso.

     

    Agradeço a quem puder ajudar.

     

    Abraços

     

    Marco

    quarta-feira, 20 de agosto de 2008 18:54

Respostas

  • Boa Noite,

    Set objEmail = CreateObject("CDO.Message")
    objEmail.From = remetente
    objEmail.Subject = "erro" 
    objEmail.To = destinatario
    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") = _
    "seu_servidor_de_smtp"
    objEmail.Configuration.Fields.Item _
     ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objEmail.Configuration.Fields.Update
    objEmail.Configuration.Fields.Update
    objEmail.Send


    * Ajude a organizar melhor o Fórum, dando Feedback sobre a dúvida solicitada, e marcando como Útil e como Resposta, a postagem dos colaboradores que resolveram o seu caso, ou foram úteis *

    domingo, 3 de junho de 2012 21:13
    Moderador

Todas as Respostas

  • Help pessoal...

     

    Abraços

    sexta-feira, 22 de agosto de 2008 12:26
  • Boa Noite,

    Set objEmail = CreateObject("CDO.Message")
    objEmail.From = remetente
    objEmail.Subject = "erro" 
    objEmail.To = destinatario
    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") = _
    "seu_servidor_de_smtp"
    objEmail.Configuration.Fields.Item _
     ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objEmail.Configuration.Fields.Update
    objEmail.Configuration.Fields.Update
    objEmail.Send


    * Ajude a organizar melhor o Fórum, dando Feedback sobre a dúvida solicitada, e marcando como Útil e como Resposta, a postagem dos colaboradores que resolveram o seu caso, ou foram úteis *

    domingo, 3 de junho de 2012 21:13
    Moderador