例: RemovePermanently method

次のエージェントは、[一時的削除を許可] が有効になっているかどうかと、ユーザープリファレンスに基づいて、現在の文書の完全な削除または一時的削除を実行します。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Set db = session.CurrentDatabase
  Dim dc As NotesDocumentCollection
  Set dc = db.UnprocessedDocuments
  Dim doc As NotesDocument
  Set doc = dc.GetFirstDocument
  If db.GetOption(DBOPT_SOFTDELETE) Then
    If Messagebox("Do you want a hard deletion?", _
    MB_YESNO + MB_ICONQUESTION, "Hard or soft") = IDYES Then
      Call doc.RemovePermanently(True)
    Else
      Call doc.Remove(True)
    End If  
  Else
    Call doc.Remove(True)
  End If
End Sub