Un ejemplo para evitar que peguen documentos en nuestra base de datos
Nos creamos un agente con el siguiente código dandole las propiedades que aparecen en la figura 1.1:
Sub Initialize
Dim session As New notessession
Dim db As notesdatabase
Set db=session.currentdatabase
Dim col As notesdocumentcollection
Set col=db.unprocesseddocuments
Dim doc As notesdocument
Call col.removeall(True)
End Sub
Figura 1.1 Propiedades del agente Evitar Pegar |
Otros documentos de LotusScript
|