LOTUSSCRIPT /COM/OLE のクラス
例:Encrypt メソッド
1. 次のスクリプトは文書の 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 )
2. 次のスクリプトは文書のすべてのアイテムを暗号化します。文書に暗号キーがすでに指定されているときは、アイテムの暗号化にはそのキーが使用されます。指定されていないときには現在のユーザーのパブリックキーが使用されます。
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 )
3. 次のスクリプトは「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 )
関連項目
Encrypt メソッド
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集