.

HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1 212-599-2048

Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development

Facebook Twitter YouTube
Chat now       
.
ProductsDownloadsNewsAbout usContact


Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

LOTUSSCRIPT/COM/OLE CLASSES

Examples: IsEncrypted property
This agent displays whether the current document is encrypted.

Sub Initialize
 Dim session As New Notessession
 Dim db As Notesdatabase
 Set db = session.Currentdatabase
 Dim dc As Notesdocumentcollection
 Set dc = db.Unprocesseddocuments
 Dim doc As notesdocument
 Set doc = dc.Getfirstdocument
 If doc.IsEncrypted Then
   Messagebox "Encrypted",, doc.Subject(0)
 Else
   Messagebox "Not encrypted",, doc.Subject(0)
 End If
End Sub

See Also