Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: ingrf am 08.10.07 - 16:10:19

Titel: Adressbuchliste
Beitrag von: ingrf am 08.10.07 - 16:10:19

Hallo Leute,
ich möchte aus dem Adressbuch eine Liste filtern zb. Lastname = 'Meier'
(original Adressbuch hat über 30.000 Einträge) daher ist eine sequentielle Suche nicht angebracht
mein bestehender Code sieht so aus:

Dim adressbuch As String
Dim ansicht As String
Dim i As Integer
Dim server As String

Dim objNotes As Object
Dim LNdb As Object
Dim LNview As Object
Dim lnarray(100, 50)
adressbuch = "names.nsf"
ansicht = "People"
server = "/Server/xyz/"
i = 0

'
Set objNotes = GetObject("", "Notes.NotesSession")
If objNotes Is Nothing Then
  Set objNotes = CreateObject("Notes.NotesSession")
End If
Set LNdb = objNotes.GETDATABASE(server, adressbuch)
Set LNview = LNdb.GETVIEW(ansicht)
Call LNview.Refresh
Set LNdoc = LNview.GETFIRSTDOCUMENT
'ReDim lnarray(100, 50)
Do While Not LNdoc Is Nothing


loop

wie kann ich sinnvoll nach lastname & firstname filtern  ???

vielen Dank in vorraus

 

Titel: Re: Adressbuchliste
Beitrag von: Glombi am 08.10.07 - 16:15:20

Du solltest eine DocumentCollection mittels der Ansicht
"($VIMPeopleByLastName)"
und dem Key lastname verwenden.
Darüber kannst Du dann als Document iterieren.
Die genannte Ansicht ist nach dem Nachnamen sortiert