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

• #1039 redwhite78 aktív tag sztanozs #1038

  Új Válasz 2021-01-19 10:00:18 #1039

  Ú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 #1038 üzenetére

  Köszi. Ehhez sajnos nem vagyok elég képzett, de összeollóztam vmit máshonnan, ami most a bekapcsoláskor működik, ha bedobom a vbs-t az indítópultba.

  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
  
  Most kellene elérnem, hogy ismét lefusson mindez, amikor kikapcsolom a gépet. Erre nincs valami ötleted?

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