例: Save method (NotesDocument - LotusScript®)

次のスクリプトは現在のデータベースに文書を新規作成して保存します。新規文書であるため、他のユーザーと編集作業が競合することはありません。したがって、最初のパラメータは False です。
```
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
doc.Form = "Main Topic"
doc.Subject = "Here's a new document"
Call doc.Save( False, False )
```

次のビューアクションスクリプトは、ビューの選択文書の各 Status アイテムを変更します。1 つの文書を複数のユーザーが同時に編集すると、文書は保存されません。その代わりに、Status アイテムが変更された返答文書が作成され保存されます。

Dim session As New NotesSession 
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument()
While Not(doc Is Nothing)
  doc.Status = "Processed by view action"
  Call doc.Save( False, True )
  Set doc = collection.GetNextDocument( doc)
Wend

次のビューアクションスクリプトは、ビューの選択文書の各 Status アイテムを変更します。1 つの文書を複数のユーザーが同時に編集すると、文書は保存されません。スクリプトは各選択文書についてメッセージを表示して、文書が保存されたかどうかを知らせます。

Dim session As New NotesSession 
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument()
While Not(doc Is Nothing)
  doc.Status = "Processed by view action"
  If doc.Save( False, False ) Then
    Messagebox "Document " & doc.UniversalID & _
       " successfully saved" 
  Else
    Messagebox "Document " & doc.UniversalID & _
       " was not saved" 
  End If
  Set doc = collection.GetNextDocument( doc)
Wend

次のスクリプトは文書の Status アイテムを変更します。最初のパラメータが True であるため、文書はスクリプトの実行中に誰かが編集した場合でも保存されます。
```
Dim doc As NotesDocument
'...set value of doc...
doc.Status = "This change gets saved no matter what"
Call doc.Save( True, True )
```