MailDB Eigenschaften Catalog setzen

Hallo wie kann man auf allen Maildatenbanken nachträglich eine Kategorie in den Eigenschaften setzen. Wie das für eine einzelne DB funzt weiß ich, aber wie kann ich das über alle DB´s setzen:

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

Schon mal danke

Hi,
kann mir bitte einer helfen bei der erstellung meines scripts. Bin noch Anfänger in dem Gebiet. Wie ich das für die einzelne DB hinbekomme, habe ich ja herrausgefunden. Aber wie ich das über alle DB´s machen soll, weiß ich gerade nicht.

Breaker

Danke Diali, der Hinweiß hat geholfen :-))

Eine allgemeine Frage noch: kennt jemand eine freeware Urlaubsdatenbank für Domino? Eine selber schreiben trau ich mir noch nicht zu?

Danke schon mal