例: NotesDocument class

次のスクリプトは現在のデータベースに新規の文書を作成して、その [Subject] を設定し、設定内容を保存します。文書には関連付けられたフォームがないため、ユーザーインターフェースでこの文書を開くと、文書はデータベースのデフォルトのフォームで表示されます。
```
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set doc = New NotesDocument ( db )
doc.Subject = "New building"
Call doc.Save( True, True )
```
次のスクリプトは現在のデータベースに新規の文書を作成して Form と Body アイテムを設定し、設定内容を保存します。ユーザーインターフェースでこの文書を開くと、文書は [Status] フォームで表示されます。ただし、[Status] という名前のフォームが現在のデータベースにある場合に限ります。
```
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set doc = New NotesDocument ( db )
doc.Form = "Status"
doc.Body = "Client meeting postponed."
Call doc.Save( True, True )
```
次のスクリプトは現在のデータベースをもとに新規の文書を作成して、メールで送信します。ただし、新規の文書は保存しません。スクリプトは受信者が文書をメールメモとして読めるように、文書の [Form] に「Memo」を設定します。文書は Susanna Coil に対しては暗号化されます。
```
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
doc.Form = "Memo"
doc.Subject = "Reminder!"
doc.EncryptOnSend = True
doc.Body = "A document awaits your approval in " _
+ db.Title
Call doc.Send( False, "Susanna Coil" )
```