例: Encrypt method

次のスクリプトは文書の Body アイテムを暗号化します。IsEncrypted プロパティが True のときは、他のアイテムも暗号化されている可能性があります。文書に暗号キーがすでに指定されているときは、アイテムの暗号化にはそのキーが使用されます。指定されていないときには現在のユーザーのパブリックキーが使用されます。
```
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( True, True )
```
次のスクリプトは文書のすべてのアイテムを暗号化します。文書に暗号キーがすでに指定されているときは、アイテムの暗号化にはそのキーが使用されます。指定されていないときには現在のユーザーのパブリックキーが使用されます。
```
Dim doc As NotesDocument
'...set value of doc...
Forall i In doc.Items
  i.IsEncrypted = True
End Forall
Call doc.Encrypt
Call doc.Save( True, True )
```

次のスクリプトは「Top Secret」暗号キーを使用して、文書の Subject と Body アイテムを暗号化します。

Dim doc As NotesDocument
Dim itemA As NotesItem
Dim itemB As NotesItem
'...set value of doc...
Set itemA = doc.GetFirstItem( "Subject" )
Set itemB = doc.GetFirstItem( "Body" )
itemA.IsEncrypted = True
itemB.IsEncrypted = True
doc.EncryptionKeys = "Top Secret"
Call doc.Encrypt
Call doc.Save( True, True )