Examples: Categories property

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