例: IsEncrypted property (NotesItem - LotusScript®)

次のスクリプトは文書の Body アイテムを暗号化します。文書の他のアイテムは暗号化されません。

Dim doc As NotesDocument
Dim item As NotesItem
'...set value of doc...
Set item = doc.GetFirstItem( "Body" )
item.IsEncrypted = True
Call doc.Encrypt
Call doc.Save( False, True )