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

• #1054 sztanozs veterán redwhite78 #1053

  Új Válasz 2021-01-20 09:59:38 #1054

  Ú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

  

  sztanozs

  veterán

  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


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