例: EncryptOnSend property

次のスクリプトは文書の EncryptOnSend プロパティを True に設定します。
```
Dim doc as NotesDocument
'...set value of doc...
doc.EncryptOnSend = True
```

次のスクリプトは、各受信者に対して暗号化されたメールメモを作成して送信します。

Dim db As New NotesDatabase( "Sao Paulo", "review.nsf" )
Dim memo As New NotesDocument( db )
Dim recipients ( 1 To 2 ) As String
memo.Form = "Memo"
memo.Subject = "Design review"
memo.Body = "Last week's design review is posted in " _
+ db.Title
memo.EncryptOnSend = True
recipients( 1 ) = "Edith Sprout"
recipients( 2 ) = "Mariko Ikebuchi"
Call memo.Send( False, recipients )