- Szenzorosan védett 12V-2x6 kábel jött az ASRock berkeiből
- 5.1, 7.1 és gamer fejhallgatók
- Milyen billentyűzetet vegyek?
- Melyik tápegységet vegyem?
- Dell notebook topic
- AMD Navi Radeon™ RX 9xxx sorozat
- Fujifilm X
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- VR topik (Oculus Rift, stb.)
- Plazma TV topic
Új hozzászólás Aktív témák
-
válasz
redwhite78 #1053 üzenetére
Akkor:
Private Sub Application_Quit()
If MsgBox("Elküldjem a kilépős emailt?", vbYesNo + vbCritical, "Nap végi email") = vbYes Then
Dim mail As MailItem
Set mail = Application.CreateItem(olMailItem)
mail.To = "email_to_send_to@server.address"
mail.CC = "email_to_send_cc@server.address"
mail.Subject = "kötelezõ subject"
mail.Send
Set mail = Nothing
Else
'Normál kilépés
End If
End Sub -
válasz
redwhite78 #1051 üzenetére
Nem, főleg, ha pl patchelés miatt újraindul a géped nap közben...
-
válasz
redwhite78 #1041 üzenetére
Akkor kiraksz egy outlook ikont a desktopra, amiben egy parancs fájl van, ami akkor fut le, amikor az outlookot bezárod (persze ez vsz nem működik akkor, ha a shutdown zárja le, mert akkor már nem fogja engedni vsz a szkriptet futni). Esetléeg outlookba írhatsz egy on_shutdown szkriptet:
Private Sub Application_Quit()
Dim mail As MailItem
Set mail = Application.CreateItem(olMailItem)
mail.To = "email_to_send_to@server.address"
mail.CC = "email_to_send_cc@server.address"
mail.Subject = "kötelezõ subject"
mail.Send
Set mail = Nothing
End Sub -
válasz
redwhite78 #1039 üzenetére
scheduled task - beállítva kb akkorra, mielőtt elmész melóból
-
válasz
redwhite78 #1037 üzenetére
Új hozzászólás Aktív témák
Hirdetés
- Telefon felvásárlás!! Honor Magic6 Lite, Honor Magic6 Pro, Honor Magic7 Lite, Honor Magic7 Pro
- Samsung Galaxy A33 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- Samsung Galaxy Tab A8 32GB, Újszerű, 1 Év Garanciával
- Bomba ár! HP EliteBook 755 G5 - Ryzen PRO 5 I 8GB I 256GB SSD I 15,6" FHD I Cam I W10 I Gari!
- 512 GB-os PCIe 4.0-as M2 SSD-k garanciával
Állásajánlatok
Cég: FOTC
Város: Budapest