LOTUSSCRIPT/COM/OLE CLASSES

Examples: IsProtected property
This agent toggles the IsProtected property for the Subject item.

Sub Initialize
 Dim session As New NotesSession
 Dim doc As NotesDocument
 Dim item As NotesItem
 Set doc = session.DocumentContext
 Set item = doc.GetFirstItem("Subject")
 If item.IsSigned Then
   Print "Subject is protected ... unprotecting"
   item.IsProtected = False
 Else
   Print "Subject is not protected ... protecting"
   item.IsProtected = True
 End If
 Call doc.Save(True, True, True)
End Sub

See Also