Examples: AvailableView property

This button gets the available view. 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)
	If directory.AvailableView <> "" Then
		Msgbox directory.AvailableView,, "Available view"
		Msgbox "No available view",, "Available view"
	End If
End Sub