none
Alteração no script RRS feed

  • Pergunta

  • Boa tarde caros amigos, tenho esse script abaixo que manda um email pra mim, avisando que o micro correspondente está ligado fora do horário de expediente, gostaria de saber, como faço para modifica-lo para que após o envio do e-mail, este mesmo script abra um arquivo que vou especificar, seja ele texto ou uma imagem? , vou colocar um aviso para o usúario final.

    Dim strHora, strAssunto
    'Coloque aqui as informações de hora e minuto
    '---------------------------------------------
    HoraEnvio = 22
    MinEnvio = 15
    '---------------------------------------------

    While 1 = 1
     strHora  = Hour(Now)
     strMinuto = Minute(Now)
     If strHora = HoraEnvio Then
      If strMinuto = MinEnvio Then
        EnviarEmail
        WScript.Quit
      End If

     End If
     WScript.Sleep(50000)
    Wend

    Public Sub EnviarEmail()
    Set objNetwork = CreateObject("Wscript.Network")
    Set objEmail = CreateObject("CDO.Message")
    strAssunto = objNetwork.ComputerName & " - " & objNetwork.UserName
    objEmail.From = "seuemaill@seudominio"
    objEmail.To = "para@seudominio"
    objEmail.Subject = strAssunto
    objEmail.Textbody = "Corpo do email"
    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 de smtp"
    objEmail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objEmail.Configuration.Fields.Update
    objEmail.Send
    End Sub

     

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

     

    Atenciosamente,

    Julio

     

    sexta-feira, 4 de junho de 2010 17:15

Respostas

  • Comente a linha WScript.Quit.

    Ela deve ficar assim:

    'WScript.Quit

    Abraço.


    Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    • Marcado como Resposta forceofwill25 segunda-feira, 7 de junho de 2010 18:50
    segunda-feira, 7 de junho de 2010 18:44

Todas as Respostas

  • Julio,

    Você pode ou mandar uma mensagem na tela mesmo ou abrir o arquivo também.

    Coloquei das duas formas.

    Set objShell = WScript.CreateObject("WScript.Shell")

    Dim strHora, strAssunto
    'Coloque aqui as informações de hora e minuto
    '---------------------------------------------
    HoraEnvio = 22
    MinEnvio = 15
    '---------------------------------------------

    While 1 = 1
     strHora  = Hour(Now)
     strMinuto = Minute(Now)
     If strHora = HoraEnvio Then
      If strMinuto = MinEnvio Then

        EnviarEmail
        objShell.Run "notepad.exe D:\1.txt"
        WScript.Echo "LINHA 1" & vbCrLf & "LINHA 2" & vbCrLf & "LINHA 3"

        WScript.Quit
      End If

     End If
     WScript.Sleep(50000)
    Wend

    Public Sub EnviarEmail()
    Set objNetwork = CreateObject("Wscript.Network")
    Set objEmail = CreateObject("CDO.Message")
    strAssunto = objNetwork.ComputerName & " - " & objNetwork.UserName
    objEmail.From = "seuemaill@seudominio"
    objEmail.To = "para@seudominio"
    objEmail.Subject = strAssunto
    objEmail.Textbody = "Corpo do email"
    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 de smtp"
    objEmail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objEmail.Configuration.Fields.Update
    objEmail.Send
    End Sub

    Qualquer dúvida poste e se for útil vote.

    Abraço.


    Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    • Marcado como Resposta forceofwill25 domingo, 6 de junho de 2010 01:09
    • Não Marcado como Resposta forceofwill25 segunda-feira, 7 de junho de 2010 13:47
    sábado, 5 de junho de 2010 14:17
  • Olá Gabriel!! Vc como sempre prestativo, me ajudou novamente!!

    O Script funcionou perfeitamente, muito obrigado!

     

    Ahh!! Só tem mais uma coisa, como eu faço pra deixar esse Script em looping? se ficar em looping a maquina vai continuar me enviando email caso ela fique ligada no final de semana, sabado e domingo.

    Desde já, agradeço!!

    Abraço!!

    Julio

    • Marcado como Resposta forceofwill25 domingo, 6 de junho de 2010 01:09
    • Não Marcado como Resposta forceofwill25 segunda-feira, 7 de junho de 2010 13:52
    domingo, 6 de junho de 2010 01:09
  • Como ficar em loop?

    Não que só checar as 22:15 é isso? Quer que check em intervalos?

    E se mandar um email não enviar mais é isso?

    Aguardo seu retorno.

    Abraço.


    Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    segunda-feira, 7 de junho de 2010 15:45
  • Olá Gabriel, vou te explicar,

     

    É assim, ele deveria checar as 22h15 todos os dias, vamos supor que a maquina ficou ligada na sexta-feira, assim que esse script envia o email pra mim, ele finaliza, e se o colaborador vier no sabado, e não desligar a maquina, o script não vai enviar o email novamente, dizendo que a maquina ocntinua ligada, o seu script está perfeito, estou muito agradecido, eu só precisava desse ajuste.

     

    Muito Obrigado!

    Julio

    segunda-feira, 7 de junho de 2010 16:14
  • Comente a linha WScript.Quit.

    Ela deve ficar assim:

    'WScript.Quit

    Abraço.


    Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    • Marcado como Resposta forceofwill25 segunda-feira, 7 de junho de 2010 18:50
    segunda-feira, 7 de junho de 2010 18:44
  • Salve!! Sucesso!!

     

    Forte abraço!!

     

    Julio

    segunda-feira, 7 de junho de 2010 18:51