none
Enviar emails com conteudo em um arquivo txt RRS feed

  • Discussão Geral

  • 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

Todas as Respostas

  •  

    Olá Goldim,

     

     

    Estou tentando usar o script acima mas está dando um erro na linha abaixo

     

    objEmail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "endereco.server.smtp"

     

    Expected Statemnent

    Code 800A0400

     

    Eu estou usando servidor Exchange.

     

    Poderia me Ajudar.

    terça-feira, 9 de dezembro de 2008 13:00