.

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: 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