- Apple asztali gépek
- Computex 2024: az AMD idén az asztali és a szerverpiacon is frissít
- Milyen videókártyát?
- Milyen Android TV boxot vegyek?
- VR topik (Oculus Rift, stb.)
- Kormányok / autós szimulátorok topicja
- A Samsung elkezdte árulni új Micro LED tévéit
- Milyen notebookot vegyek?
- TCL LCD és LED TV-k
- Milyen billentyűzetet vegyek?
Hirdetés
-
Csinált valamit a Nokia: megváltoznak a telefonhívások
it Végrehajtotta a világ első „magával ragadó” telefonhívását a Nokia vezérigazgatója. 3D-s hangélményt ígér.
-
Call of Duty: Black Ops 6 - Nyugalom, nem lesz 300GB-os a játék
gp Az Activision némileg tisztázta a felbukkant félreértést az idei epizód méretével kapcsolatban.
-
Computex 2024: a TravelMate sem kerül el az AI-t
ph Az Acer üzleti notebooksorozatába érkező P4 16 és P6 14 sem menekül a CoPilot megjelölés elöl.
Új hozzászólás Aktív témák
-
redwhite78
aktív tag
Üdv!
Szakértők segítsetek pls! Cégnél bevezették, h emailt kell munkába érkezéskor és távozáskor küldeni (üres email, mindig azonos tárgyszöveggel, adott belső mail címre); ez a covidos jelenléti ív lényegében. (Win7, Outlook2016.)
Mivel ezt rendszeresen elfelejtem automatizálni szeretném.
Lehetne valahogy írni egy bat, vagy vbs fajt, ami elvégzi mindezt automatikusan be és kikapcsoláskor?
Milyen irányba induljak el? (google még nem segített, persze biztos rosszul kerestem )
Köszi előre is![ Szerkesztve ]
never go full retard
-
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?never go full retard
-
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")[ Szerkesztve ]
never go full retard
Új hozzászólás Aktív témák
- Külföldi rendelések: boltok, fizetés, postázás
- Politika
- Mibe tegyem a megtakarításaimat?
- Nők, nőügyek (18+)
- Apple asztali gépek
- ASUS routerek
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Samsung Galaxy S21 Ultra - vákuumcsomagolás
- iPhone topik
- Közeledik az X Fold3 Pro
- További aktív témák...
- Macbook AIR M1 CHIP! 8/256GB Mediamarkt számla! 2 év garancia! Fulldoboz! Gyönyörű!
- Cudy LT700 AC1200 Router
- Gamer PC , i5 12400F , RTX 3060 12GB , 32GB 3200MHz , 512GB NVME , 2TB HDD
- Gamer PC , i7 8700 , RTX 3060 12GB , 32GB DDR4 , 512GB NVME , 1TB HDD
- Gaming PC , R5 4500 , RX 5700 XT , 32GB DDR4 , 512GB NVME
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen