Usuário com melhor resposta
Script VBS envio de e-mail (Outlook Express)

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
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 *
- Marcado como Resposta Wagner dos Santos VasconcellosModerator domingo, 3 de junho de 2012 21:14
Todas as 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 *
- Marcado como Resposta Wagner dos Santos VasconcellosModerator domingo, 3 de junho de 2012 21:14