例: AvailableItems property

このボタンは、ディレクトリ内で検索されたアイテムの名前を取得します。このボタンが含まれるフォームには、検索を実行する別のボタンが含まれています。

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