Examples: EncryptOnSend property

  1. This script sets the EncryptOnSend property for the document to True.
    Dim doc as NotesDocument
    '...set value of doc...
    doc.EncryptOnSend = True
  2. This script creates and sends a mail memo that is encrypted for each recipient.
    Dim db As New NotesDatabase( "Sao Paulo", "review.nsf" )
    Dim memo As New NotesDocument( db )
    Dim recipients ( 1 To 2 ) As String
    memo.Form = "Memo"
    memo.Subject = "Design review"
    memo.Body = "Last week's design review is posted in " _
    + db.Title
    memo.EncryptOnSend = True
    recipients( 1 ) = "Edith Sprout"
    recipients( 2 ) = "Mariko Ikebuchi"
    Call memo.Send( False, recipients )