例: SearchAllDirectories property

以下のボタンは、検索時にすべてのディレクトリを検索するかどうかを切り替えます。このボタンが含まれるフォームには、検索を実行する別のボタンが含まれています。

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 msg As String
	If directory.SearchAllDirectories Then
		directory.SearchAllDirectories = False
		msg = "Lookups will stop searching after the first directory with the specified view name"
	Else
		directory.SearchAllDirectories = True
		msg = "Lookups will search all directories"
	End If
	Msgbox msg,, "Search all directories?"
End Sub