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
		value = nav.GetFirstItemValue
		msg = msg & Cstr(value(0)) & |
	Msgbox msg,, "My Contacts"
End Sub