このスクリプトは、「Track」のプロパティ値を NotesPropertyBroker に発行します。
Dim s As New NotesSession Dim pb As NotesPropertyBroker Set pb = s.GetPropertyBroker() Call pb.setPropertyValue("Track",newCategory$) Call pb.Publish()