例: IsEncrypted property (NotesDocument - LotusScript®)

次のエージェントは、現在の文書が暗号化されているかどうかを表示します。

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