LOTUSSCRIPT/COM/OLE CLASSES
Sub UpdateSubject(doc As NotesDocument) If doc.IsUIDocOpen Then Messagebox _ "Can't do Subject update from front-end",, _ "No can do" Exit Sub End If Call doc.ReplaceItemValue _ ("Subject", doc.Subject(0) & "0") Call doc.Save(True, False) End Sub
See Also