Examples: LookupAllNames method

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