例: AvailableView 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)
	If directory.AvailableView <> "" Then
		Msgbox directory.AvailableView,, "Available view"
	Else
		Msgbox "No available view",, "Available view"
	End If
End Sub