Examples: CurrentMatch property

1. This button accesses the "My Contacts" view of the personal address book in the local directory and returns the values of the "FullName" and "InternetAddress" items for each document that matches a name.

   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
   	Dim names As String
   	Dim items( 1 To 2) As String
   	items(1) = "FullName"
   	items(2) = "InternetAddress"
   	names = Inputbox$("Enter last name")
   	If names = "" Then Exit Sub
   	Set nav = directory.LookupNames("My Contacts", names, items, True)
   	If nav.CurrentMatches > 0 Then
   		Do
   			msg = msg & Cstr(nav.CurrentMatch) & | |
   			value = nav.GetFirstItemValue
   			msg = msg & Cstr(value(0)) & | |
   			value = nav.GetNextItemValue
   			msg = msg & Cstr(value(0)) & |
   |
   		Loop While nav.FindNextMatch
   	End If
   	Msgbox msg,, "My Contacts"
   End Sub

2. This button accesses the "People" view of the Domino directory on a server and returns the values of the "FullName" and "InternetAddress" items for each document that matches a name.

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

Sub Click(Source As Button)
	Dim nav As NotesDirectoryNavigator
	Dim msg As String
	Dim value As Variant
	Dim names As String
	Dim items( 1 To 2) As String
	items(1) = "FullName"
	items(2) = "InternetAddress"
	names = Inputbox$("Enter last name")
	If names = "" Then Exit Sub
	On Error Goto errh ' Bad server name causes exception
	Set nav = directory.LookupNames("People", names, items, True)
	On Error Goto 0
	If nav.CurrentMatches > 0 Then
		Do
			msg = msg & Cstr(nav.CurrentMatch) & | |
			value = nav.GetFirstItemValue
			msg = msg & Cstr(value(0)) & | |
			value = nav.GetNextItemValue
			msg = msg & Cstr(value(0)) & |
|
		Loop While nav.FindNextMatch
	End If
	Msgbox msg,, "People"
	Exit Sub
errh:
	Msgbox Error(),, Err()
	Exit Sub
End Sub