LOTUSSCRIPT/COM/OLE CLASSES
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