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 signed ... unsigning" item.IsSigned = False Else Print "Subject is not signed ... signing" item.IsSigned = True End If Call doc.Sign Call doc.Save(True, True, True) End Sub
See Also