Examples: GroupAuthorizationOnly property

This button toggles group authorization for lookups. 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("myserver/Acme")
End Sub

Sub Click(Source As Button)
	Dim msg As String
	If directory.GroupAuthorizationOnly Then
		directory.GroupAuthorizationOnly = False
		msg = "Search all directories"
	Else
		directory.GroupAuthorizationOnly = True
		msg = |Search only directories marked "Enable for Group Authorization"|
	End If
	Msgbox msg,, "Group authorization changed"
End Sub