Új hozzászólás Aktív témák

• #1051 redwhite78 aktív tag sztanozs #1042

  Új Válasz 2021-01-20 07:44:48 #1051

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  redwhite78

  aktív tag

  válasz sztanozs #1042 üzenetére

  Az outlook-os megoldással nem tudtam megcsinálni, de végül az asztalra kiraktam egy vbs fájlt amiben lefut az outlook indítás, levélküldés és egy shuthdown. Ez most működik, bár lehet nem valami elegáns.

  SecondsToDelay = "0"
  ProgramToRun = "C:\Program Files\Microsoft Office\Office16\outlook.exe"
  Wscript.Sleep(SecondsToDelay * 1000)
  Prog = Chr(34) & ProgramToRun & Chr(34)

  CreateObject("WScript.Shell").Run(Prog)
  Set objOutlook = CreateObject("Outlook.Application")
  Set objMail = objOutlook.CreateItem(0)
  objMail.Display 'To display message
  objMail.To = "pelda@gmail.com"
  objMail.Subject = "tárgy"
  objMail.Send
  
  Set objShell = wscript.CreateObject("wscript.Shell")
  objShell.run("shutdown /s /f /t 3")

Új hozzászólás Aktív témák