Examples: AvailableItems property

This button gets the names of items looked up in the directory. The form that contains this button contains other buttons that do lookups.

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 msg As String
	If directory.AvailableItems(0) <> "" Then
		Forall item In directory.AvailableItems
			msg = msg & item & |
|
		End Forall
	Else
		msg = "No lookups yet"
	End If
	Msgbox msg,, "Available items"
End Sub