Mit diesem Code kannst du die Kategoriefelder bequem füllen
Der Agent ( Manuiell aus dem Menue, ausgewählte Dokumente ) läuft bei mir im Datenbankkatalog.
Sub Initialize
Dim s As New NotesSession
Dim Thisdb As NotesDatabase
Dim doc As NotesDocument
Dim item As NotesItem
Dim i As Integer
Dim col As NotesDocumentCollection
Cat$ = Inputbox$("Type a categories name")
Set Thisdb = s.currentDatabase
Set col = Thisdb.unprocessedDocuments
For i = 1 To col.count
Dim db As New NotesDatabase( "", "" )
Set doc = col.getNthDocument(i)
Set item = doc.getFirstItem ("PathName")
PathName$ = item.text
Set item = doc.getFirstItem ("Server")
ServerName$ = item.text
Call db.Open( ServerName$, PathName$ )
db.categories = Cat$
Next i
End Sub
und dann schau mal unter
www.eknori.de bei den Tips und Tricks nach "In Datenbakkatalog auflisten".
eknori