none
Envio de e-mail para mais de um usuário RRS feed

  • Pergunta

  • Boa tarde pessoal,

       antes de qualquer coisa feliz natal a todos do forum e um feliz ano novo repleto de novos desafios...

    Gostaria de tiurar uma dúvida, tenho um script que envia um e-mail para um grupo de usuários cadastrados em uma única conta de e-mail, e surgiu a situação que tenho que incluir outros dois usuários que não podem fazer parte deste grupo, pois recebemos e-mails gerenciais, e teria que incluir estes dois novos e-mails apenas para esta tarefe, mas não consegui realizar isto, poderiam analisar o script e me dar uma dica de como agregar novos e-mails ao script criado?

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder("C:\MEDIA\GLOBO")

    Do
        old = objFolder.Size
        WScript.Sleep 60000
        'message = message & "New size: " & objFolder.Size  & Chr(13)
        'message = message & "Old size: " & old & Chr(13)
        'Wscript.Echo message
     'message = ""
     If old = objFolder.Size Then
      ' aqui colocamos a açao caso o arquivo nao tenha alterado o tamanho
      Mail
      'WScript.Echo "Não alterou"
     End If
    Loop

    Sub Mail
      Set objEmail = CreateObject("CDO.Message")
       objEmail.From = "XXXXXXX@verdesmares.com.br"
       objEmail.To = "XXXXXXX@verdesmares.com.br"
       objEmail.Subject = "Monitoração"
       objEmail.Textbody = "O diretorio monitorado GVM\GLOBO nao teve alteração de tamanho, verificar travamento no GVM SVM-INFO-11."
       objEmail.Configuration.Fields.Item _
          ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
       objEmail.Configuration.Fields.Item _
          ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
             "172.17.0.2"
       objEmail.Configuration.Fields.Item _
          ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
       objEmail.Configuration.Fields.Update
       objEmail.Send
    End Sub

    segunda-feira, 28 de dezembro de 2009 17:22

Respostas

  • Boa tarde pessoal,

       antes de qualquer coisa feliz natal a todos do forum e um feliz ano novo repleto de novos desafios...

    Gostaria de tiurar uma dúvida, tenho um script que envia um e-mail para um grupo de usuários cadastrados em uma única conta de e-mail, e surgiu a situação que tenho que incluir outros dois usuários que não podem fazer parte deste grupo, pois recebemos e-mails gerenciais, e teria que incluir estes dois novos e-mails apenas para esta tarefe, mas não consegui realizar isto, poderiam analisar o script e me dar uma dica de como agregar novos e-mails ao script criado?

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder("C:\MEDIA\GLOBO")

    Do
        old = objFolder.Size
        WScript.Sleep 60000
        'message = message & "New size: " & objFolder.Size  & Chr(13)
        'message = message & "Old size: " & old & Chr(13)
        'Wscript.Echo message
     'message = ""
     If old = objFolder.Size Then
      ' aqui colocamos a açao caso o arquivo nao tenha alterado o tamanho
      Mail
      'WScript.Echo "Não alterou"
     End If
    Loop

    Sub Mail
      Set objEmail = CreateObject("CDO.Message")
       objEmail.From = "XXXXXXX@verdesmares.com.br"
       objEmail.To = "XXXXXXX@verdesmares.com.br"
       objEmail.Subject = "Monitoração"
       objEmail.Textbody = "O diretorio monitorado GVM\GLOBO nao teve alteração de tamanho, verificar travamento no GVM SVM-INFO-11."
       objEmail.Configuration.Fields.Item _
          ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
       objEmail.Configuration.Fields.Item _
          ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
             "172.17.0.2"
       objEmail.Configuration.Fields.Item _
          ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
       objEmail.Configuration.Fields.Update
       objEmail.Send
    End Sub



    Assim..



    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder("C:\MEDIA\GLOBO")

    Do
        old = objFolder.Size
        WScript.Sleep 60000
        'message = message & "New size: " & objFolder.Size  & Chr(13)
        'message = message & "Old size: " & old & Chr(13)
        'Wscript.Echo message
     'message = ""
     If old = objFolder.Size Then
      ' aqui colocamos a açao caso o arquivo nao tenha alterado o tamanho
      Mail
      'WScript.Echo "Não alterou"
     End If
    Loop

    Sub Mail
      Set objEmail = CreateObject("CDO.Message")
       objEmail.From = "XXXXXXX@verdesmares.com.br"
       objEmail.To = "XXXXXXX@verdesmares.com.br;Segundo@email.com.br;terceiro@email.com.br"
       objEmail.Subject = "Monitoração"
       objEmail.Textbody = "O diretorio monitorado GVM\GLOBO nao teve alteração de tamanho, verificar travamento no GVM SVM-INFO-11."
       objEmail.Configuration.Fields.Item _
          ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
       objEmail.Configuration.Fields.Item _
          ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
             "172.17.0.2"
       objEmail.Configuration.Fields.Item _
          ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
       objEmail.Configuration.Fields.Update
       objEmail.Send
    End Sub

    Qualquer duvida poste!
    []s,


    " Qm tem boca vai a roma, meu fogão tem 6 e não saiu da cozinha ainda"
    segunda-feira, 28 de dezembro de 2009 17:54