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

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    1
    Entrar para Votar
    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Help pessoal...

     

    Abraços

    sexta-feira, 22 de agosto de 2008 12:26
    |
  • Question
    Entrar para Votar
    1
    Entrar para Votar
    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