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
