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 )