Opção explícita
objInspectors não ofuscantes de WithEvents como inspetores
objMyNewMail não ofuscante de WithEvents como MailItem
Application_Startup secundário confidencial ()
Ajustar objInspectors = Application.Inspectors
Terminar o submarino
Application_Quit secundário confidencial ()
Ajustar objInspectors = nada
Ajustar o objMyNewMail = nada
Terminar o submarino
objInspectors_NewInspector secundário confidencial (inspetor de ByVal como o inspetor)
Se o olMail <> de Inspetor.CurrentItem.Class retira então o submarino
Ajustar o objMyNewMail = o Inspetor.CurrentItem
Terminar o submarino
objMyNewMail_Send secundário confidencial (cancelamento como bôoleano)
Se MsgBox (“é você certo você quer emitir esta mensagem? ”, _ do vbYesNo + do vbQuestion
, “EMITIR A CONFIRMAÇÃO”) = vbNo então
O cancelamento = retifica
Terminar se
Terminar o submarino
|