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 )