%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

%INCLUDE "lsconst.lss"

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