LOTUSSCRIPT/COM/OLE CLASSES
%INCLUDE "lsconst.lss"
Sub Queryclose(Source As Notesuidocument, _ Continue As Variant) Dim answer As Integer answer = Messagebox _ ( "Do you want to exit this document?", _ MB_YESNO, "Document" ) If ( answer = IDNO ) Then continue = False End If End Sub
Sub Queryclose(Source As Notesuidocument, Continue As Variant) Dim answer As Integer If source.EditMode Then answer = Messagebox _ ("Do you want to mail this doc?", MB_YESNO, "Mail" ) If ( answer = IDYES ) Then Call source.Send End If End If End Sub