例: Remove method (NotesDocument - LotusScript®)

次のスクリプトは、データベースの文書を他のユーザーが変更していない場合に削除します。

Dim doc As NotesDocument
'...set value of doc...
If doc.Remove( False ) Then
  Messagebox _
  ( "The document was deleted from the database." )
Else
  Messagebox _
  ( "Doc not deleted. Another user modified it." )
End If

次のスクリプトは、他のユーザーが文書を変更した場合でもデータベースの文書を削除します。スクリプトは Remove メソッドの戻り値を使用しません。
```
Dim doc As NotesDocument
'...set value of doc...
Call doc.Remove( True )
```

次のスクリプトは現在の文書のユニバーサル ID を取得し、文書に削除マークを付け、それを閉じます。さらにデータベースからバックエンドの NotesDocument オブジェクトを検索し、NotesDocument クラスの Remove メソッドでそれを削除します。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim docA As NotesDocument
Dim s As String

Set db = session.CurrentDatabase
Set uidoc = workspace.CurrentDocument
Set docA = uidoc.document
s = docA.UniversalID
Call uidoc.deletedocument()
Set docB = db.getDocumentByUNID(s)
Call docB.Remove(True)
Call workspace.viewrefresh()

次のスクリプトは「My Favorites」というビューのすべての文書を削除します。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim collection As NotesViewEntryCollection
Dim entry As NotesViewEntry
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView("My Favorites")
Set collection = view.AllEntries
Set entry = collection.GetFirstEntry()
While Not(entry Is Nothing)
  Set doc = entry.Document
  doc.Remove(True)
  Set entry = collection.GetNextEntry(entry)
Wend