none
Ler quantidade linhas vbs RRS feed

  • Pergunta

  • Pessoal, gostaria de melhorar essa rotina vbs de envio de e-mail para que ela mostre a quantidade linhas no arquivo TCPS.TXT no objEmail.Subject.

     

    Alguém sabe como eu implemento isso?

     

    Set objEmail = CreateObject("CDO.Message")

     

    objEmail.From = "monitor@monitor.com.br "

    objEmail.To = "monitor_adg@monitor.com.br"

    objEmail.Subject = "Atualização do arquivo TPCS.TXT"

    objEmail.Textbody = "O arquivo TPCS.TXT foi atualizado nessa madrugada!"

    objEmail.Configuration.Fields.Item _

        ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

    objEmail.Configuration.Fields.Item _

        ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _

            "MAILBX01.exemplo.corp.net"

    objEmail.Configuration.Fields.Item _

        ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

    objEmail.Configuration.Fields.Update

    objEmail.Send

     

     

    Obrigado.

    domingo, 25 de maio de 2008 02:25

Respostas

  • Foliveiar segue o script para isso Wink:

     

    i = 0
    set FSO = createobject("scripting.filesystemobject")
    set arq = fso.opentextfile("caminho do arquivo TPCS.txt",1)
    do until arq.AtEndofstream
     arq.skipline
     i = i +1 
    loop

    Set objEmail = CreateObject("CDO.Message")

     

    objEmail.From = "monitor@monitor.com.br "

    objEmail.To = "monitor_adg@monitor.com.br"

    objEmail.Subject = "Atualização do arquivo TPCS.TXT - Número de linhas " & i 

    objEmail.Textbody = "O arquivo TPCS.TXT foi atualizado nessa madrugada!"

    objEmail.Configuration.Fields.Item _

        ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

    objEmail.Configuration.Fields.Item _

        ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _

            "MAILBX01.exemplo.corp.net"

    objEmail.Configuration.Fields.Item _

        ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

    objEmail.Configuration.Fields.Update

    objEmail.Send

     

    ps: só muda o que está em negrito Wink

    segunda-feira, 26 de maio de 2008 17:22