作成者	カテゴリ	返答の対象		公開
ｱﾝﾇ 09/15/2010 04:25 PM		Querydocumentdelete

＜Evaluate,Ismemberの参考＞
http://domino.webserve.ne.jp/webserve/notesqa.nsf/All/B5282DC805C2B51049256C6A00194FF5?OpenDocument

＜補足・確認＞
ボッチさんが掲載したﾌﾟﾛｸﾞﾗﾑは問題ありません。
どこでエラーになってるのでしょうか？
ﾃﾞﾊﾞｯｸﾞで確認してみてください。
また、これ以外のｽﾃｰﾄﾒﾝﾄがあるのでしょうか？

Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
Dim ss As New NotesSession
If ss.CommonUserName="○○○" Then
Msgbox"削除できない。"
Continue=False
End If

End Sub