LOTUSSCRIPT/COM/OLE CLASSES
Examples: EncryptionKeys property
1. This script gets the encryption keys for a document. For example, if the document is encrypted with the Confidential Key and the Classified Key, keys( 0 ) equals "Confidential Key" and keys( 1 ) equals "Classified Key."
Dim doc As NotesDocument
Dim keys As Variant
'...set value of doc...
keys = doc.EncryptionKeys
2. This script encrypts every item in a document with two encryption keys: Top Secret and Medium Secret.
Dim doc As NotesDocument
Dim item As NotesItem
Dim keys( 1 To 2 ) As String
'...set value of doc...
Forall i In doc.Items
i.IsEncrypted = True
End Forall
keys( 1 ) = "Top Secret"
keys( 2 ) = "Medium Secret"
doc.EncryptionKeys = keys
Call doc.Encrypt
Call doc.Save( True, True )
Véase también
EncryptionKeys property
Glosario
¿Desea opinar sobre la Ayuda?
Ayuda sobre la Ayuda
Abrir la Ayuda en pantalla completa
Glosario
¿Desea opinar sobre la Ayuda?
Ayuda sobre la Ayuda
Abrir la Ayuda en pantalla completa