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