Examples: Categories property

This agent allows the user to change the database catalog categories of the current database.

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", _
  If Not Isempty(categories) Then
    db.Categories = categories
  End If
End Sub