NotesNoteCollection & SelectProfiles

[Hevelmann]

Hallo,

Ich habe folgendes Problem:

ich möchte in eine NotesNoteCollection sämtliche Profildokumente aufnehmen. Dazu verwende ich folgenden Agenten:


Dim session As New NotesSession
Dim db As NotesDatabase
Dim nc As NotesNoteCollection

Set db = session.GetDatabase ( Server, Database, False )

Set nc = db.CreateNoteCollection ( False )
nc.SelectProfiles = True

Call nc.BuildCollection


Mein Agent läuft auf einem Notes 6 Client. Liegt die Datenbank auf einem 6er Server funktioniert alles super. Liegt die Datenbank allerdings auf einem 5er Server kommt folgende Fehlermeldung:"ERROR 4057 - Database search failed"

Ich habe jetzt noch etwas rumprobiert und festgestellt, dass wenn ich alle Elemente auswähle und nur die Profildocumente weglasse,


Set nc = db.CreateNoteCollection ( True )
nc.SelectProfiles = False


dann läuft der Agent ohne Probleme mit der 5er Datenbank.

Hat jemand eine Ahnung woran das liegen könnte

Danke Hevelmann

[Hevelmann]

Hat sich erledigt:

Hier eine mögliche Lösung:  


Dim session As New NotesSession
Dim db As NotesDatabase
Dim nc As NotesNoteCollection
Dim np As NotesDocumentCollection
Dim pdoc As NotesDocument
Dim sNoteid As String

Set db = session.GetDatabase ( Server, Database, False )

Set nc = db.CreateNoteCollection ( False )
Call nc.BuildCollection

Set np = db.GetProfileDocCollection

If Not np Is Nothing Then
    Set pdoc = np.GetFirstDocument
    While Not pdoc Is Nothing
        sNoteid = pdoc.NoteID
        Call nc.Add ( sNoteid )
        Set pdoc = np.GetNextDocument ( pdoc )
    Wend
End If


Gruss Hevelmann