只要在数据库的Querydocumentdelete代码里加上下面的代码就OK了,注意要让CONTINUE=FALSE
Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
     Messagebox "请使用删除按钮",0+64+0+4096,"系统提示"  '64为提示符号,32为问号
     continue=False
End Sub