Examples: CurrentMatches property

This button accesses the "My Contacts" view of the personal address book in the local directory and returns the value of the "FullName" item for each document.

Dim session As NotesSession
Dim directory As NotesDirectory
Sub Initialize
    Set session = New NotesSession
    Set directory = session.GetDirectory("")
End Sub

Sub Click(Source As Button)
    Dim nav As NotesDirectoryNavigator
    Dim msg As String
    Dim value As Variant
    Set nav = directory.LookupAllNames("My Contacts", "FullName")
    For i = 1 To nav.CurrentMatches
        nav.FindNthMatch(i)
        value = nav.GetFirstItemValue
        msg = msg & Cstr(value(0)) & |
|
    Next
    Msgbox msg,, "My Contacts"
End Sub