LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim ws As New NotesUIWorkspace Dim session As New NotesSession Dim db As NotesDatabase Dim categories As Variant Set db = session.CurrentDatabase categories = ws.Prompt(PROMPT_OKCANCELEDIT, _ "Categories", _ "Enter categories separated by semicolons", _ db.Categories) If Not Isempty(categories) Then db.Categories = categories End If End Sub
See Also