例: SaveMessageOnSend property

次のスクリプトは、NotesDatabase オブジェクト doc の SaveMessageOnSend プロパティを True に設定します。
```
Dim doc As NotesDocument
'...set value of doc..
doc.SaveMessageOnSend = True
```
次の例は現在のデータベースに新規文書を作成して、メールで送信し、保存します。文書がデータベースで適切に表示されるように、文書のフォームが Main Topic に設定されます。また、文書が受信者のメールデータベースで適切に表示されるように、フォームは文書とともにメールで送信されます。
```
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
doc.SaveMessageOnSend = True
doc.Form = "Main Topic"
doc.Subject =  _
"Here's a new document that's going to be saved and mailed."
Call doc.Send( True, "Carl Pycha" )
```