EncryptOnSend doesn't work in agent scheduled?

Hi, pls someone could help me?

This script below works with successuflly if executed manually and the encrypted email arrives at the destination (field Encrypt = 1), but if I tried execute this process scheduled on the server, the email arrives without encrypt (Encrypt = 0).

Sub Initialize()

Dim session As New NotesSession

Dim db As NotesDatabase

Dim view As NotesView

Dim doc As NotesDocument

Set db = session.currentdatabase

Set view = db.Getview(“Forms”)

Set doc = view.Getfirstdocument()

doc.subject = “TEST SCHEDULED”

doc.EncryptOnSend = True

Call doc.Send(True, “email to be send/Brazil/IBM”)

End Sub

I read in Notes Designer Help these text below:

"If the script is running on a server, it must have permission to use Encrypt. If the script is part of a scheduled agent running in the background on a server, and the EncryptionKeys property is set with one or more named keys, the server’s ID must contain those keys, not the signer of the agent. The agent must also have a runtime security level of at least “Allow restricted operations”.

Since mail encryption works differently, don’t use this method if you want to mail an encrypted document. Instead, set the EncryptOnSend property to True, and use the Send method"

Pls, any idea what should be configure in the Domino Server?

Thanks!!!