Examples: MatchLocated property

  1. This code looks up all entries containing "Smith" in the $Users view, and creates a directory navigator of the person's short name and internet address.
  Dim s As New notessession
  Dim myname As String
  myname = "Smith"  
  
  Dim myitems() As String
  Redim myitems(1 To 2)  
  
  myitems(1) =  "ShortName"
  myitems(2) =  "InternetAddress"
  
  Set mydir = s.GetDirectory("myserver")
  
  Set mynav = mydir.LookupNames("$Users", myname, myitems, True)
  
  While mynav.NameLocated  
    While mynav.MatchLocated    
      v = mynav.getFirstItemValue
      mynav.FindNextMatch  ' sets MatchLocated T/F
    Wend
'    resume name loop
    mynav.FindNextName  ' sets NameLocated T/F
  Wend
  Msgbox "complete"  

  1. 2. 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 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)
    	msg = "Searching " & nav.CurrentView & " for " & nav.CurrentName &	|
    |
    	If nav.MatchLocated 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
    	Else
    		msg = "No matches"
    	End If
    	Msgbox msg,, "My Contacts"
    End Sub