Enviar emails com conteudo em um arquivo txt

• Discussão Geral

• 

  

  0

  Entrar para Votar

  Script para enviar emails cujo conteúdo está armazenado em um arquivo .txt.
  
  Ajustar endereço de email, assunto, servidor smtp e arquivo de acordo com sua necessidade.
  
  ------------------------------------------- 8< ------------------------------------------------
  set fso = CreateObject("Scripting.FileSystemObject")
  Set objEmail = CreateObject("CDO.Message")
  
  Const ForReading = 1, ForWriting = 2, ForAppending = 8
  Dim fso, f
  Set f = fso.OpenTextFile("caminho:\arquivo.txt", ForReading)
  BodyText = f.ReadAll
  f.Close
  Set f = Nothing
  Set fso = Nothing
  
  objEmail.From = "email@remetente"
  objEmail.To = "email@destinatario"
  objEmail.Subject = "Assunto"
  objEmail.TextBody = BodyText
  objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "endereco.server.smtp"
  objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  objEmail.Configuration.Fields.Update
  objEmail.Send
  ------------------------------------------- 8< ------------------------------------------------
  

  • Tipo Alterado Fábio JrModerator segunda-feira, 19 de novembro de 2012 14:28 Não é dúvida

  terça-feira, 19 de setembro de 2006 15:47

  Responder

  |

  Citação