Encrypt document to someone

Hi to all.

I want to encript a document to document’s readers. How can I do it?.

My current code is samething like this:

Set item = doc.GetFirstItem( “Body” )

item.IsEncrypted = True

Call doc.Encrypt

Call doc.Save (True, False)

it works fine, but it just encript to the user that run the code.

Thanks.

Subject: Try putting the reader’s name in a field named “PublicEncryptionKeys”

Try this:

item.isEncrypted=true

doc.PublicEncryptionKeys = “John Doe/ABC”

'or use a field value instead of a name (e.g. doc.ReaderField(0)

doc.Encrypt

doc.save true,true

You can verify the encryption by looking at the changed document’s Document Properties/Security Tab and the name set by LotusScript should appear under the ‘PublicEncryptionKeys’ field.