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"
