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 )