none
Enviar arquivo mais recente de uma pasta por email RRS feed

  • Pergunta

  • Bom dia caros amigos, obrigado por compartilhar seus conhecimentos comigo.

     

    Alguem conhece algum script que envie um arquivo mais recente de uma determinada pasta por e-mail?

     

    Desde já, agradeço a colaboração!!

    Julio

    quarta-feira, 2 de junho de 2010 11:32

Respostas

  • Descobri a solução aqui mesmo no site:

     

    strcomputer="."
    Set wmi = GetObject("winmgmts:\\" & strcomputer & "\root\cimv2")
    set arquivos = wmi.execquery("select * from CIM_DATAFILE where path='\\documents and settings\\vsnet\\local Settings\\application data\\microsoft\\windows nt\\ntbackup\\data\\' and extension = 'log'")
    ultimo = ""
    penultimo = ""
    for each arq in arquivos
    if arq.lastmodified > ultimo then
     ultimo = arq.lastmodified
     arquivo = arq.drive & arq.path & arq.filename & "." & arq.extension
    end if
    next
    Set objEmail = CreateObject("CDO.Message")
    objEmail.From = "remetente"
    objEmail.To = "destinatario "
    objEmail.Subject = "Log do backup do dia " &  datepart("d", now()) & "/" & datepart("m",now()) & "/" & datepart("yyyy",now())
    objEmail.Textbody = "Log do backup do dia " &  datepart("d", now()) & "/" & datepart("m",now()) & "/" & datepart("yyyy",now())
    objEmail.AddAttachment"file://" & arquivo
    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 smtp"
    objEmail.Configuration.Fields.Item _
     ("http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 25
    objEmail.Configuration.Fields.Update

    objEmail.Send
    wscript.quit

    • Marcado como Resposta forceofwill25 quarta-feira, 2 de junho de 2010 19:17
    quarta-feira, 2 de junho de 2010 19:17