LOTUSSCRIPT/COM/OLE CLASSES
Dim s As New NotesSession Dim pb As NotesPropertyBroker Set pb = s.GetPropertyBroker() dim PropName as string PropName = "Subject" Call pb.setPropertyValue(PropName,"My Subject") Print "Property set to value " & pb.getPropertyValue(PropName)(0) 'value of "My Subject" will be printed Call pb.ClearProperty(PropName) Print "Property set to value " & pb.getPropertyValue(PropName)(0) 'value of blank will be printed