Opzione esplicita
objInspectors fiochi di WithEvents come ispettori
objMyNewMail fioco di WithEvents come MailItem
Application_Startup secondario riservato ()
Regolare i objInspectors = Application.Inspectors
Concludere il sommergibile
Application_Quit secondario riservato ()
Regolare i objInspectors = niente
Regolare il objMyNewMail = niente
Concludere il sommergibile
objInspectors_NewInspector secondario riservato (ispettore di ByVal come ispettore)
Se il olMail <> di Inspector.CurrentItem.Class allora esce il sommergibile
Regolare il objMyNewMail = Inspector.CurrentItem
Concludere il sommergibile
objMyNewMail_Send secondario riservato (annullamento come booleano)
Se MsgBox (“siete sicuro voi volete trasmettere questo messaggio? „, _ di vbYesNo + di vbQuestion
, “TRASMETTERE LA CONFERMA„) = vbNo allora
L'annullamento = allinea
Concluder se
Concludere il sommergibile
|