Изменение Параметров Поиска Юзеров В Клиенте

[Recruit]

Сервер\Клиент 8.5.2
На клиентах порядок поиска юзверей в адресных книгах стоит дефаултовый "Stop after first match"
Нужно поменять на "Exhaustively check all address books"
По

Ссылка скрыта от гостей

Создал Explicit policy "test" с настройками desktop по мануалу.
Добавил эту политику к юзеру, поднял тестовый клиент с нуля.
Зашел под юзверем, в notes.ini появилась строчка ExhaustiveNameLookup=1
в настройках расположения клиента ,в закладке mail всеравно "Stop after first match"
synopsis policy показывает что клиент настроку политики скватил и локалный names.nsf view $Policies показывает что политику схватил
Опять же, по notes.ini строчка ExhaustiveNameLookup=1, есть значит политика свое дело сделала
только клиенту это почемуто пофиг
подскажите плиз в чем может быть трабл??

 

[Akupaka]

Попробуй другой версии клиент, возможно в 852 глюк.
Была такая же проблема в 8.0...

Ссылка скрыта от гостей

У меня вон перестали БД открываться в дизайнере... Эта 8-ка - одни глюки!

 

[Recruit]

Попробовал на notes 8.5.3 таже самая фигня :huh:

 

[Akupaka]

Recruit
та ты попробуй на 6-7 версиях =) 8.5.3 - та же самая фигня, что и 8.5.2 ))

 

[Recruit]

Нашел еше, вопрос можно решить

Ссылка скрыта от гостей

по мылу, это конечно не политика, но тоже ничего.
Так хоть значение действительно меняет.

 

[Akupaka]

Я так кнопкой тоже когда-то устанавливал значения пользователям

А по поводу конкретного параметра. Выходит, что ранее действовала настройка из нотес.ини, а теперь из документа местоположения? О.о
Ну и еще головняк может появиться, если у пользователя название местоположения называется иначе, не Online.
Тогда надо либо все менять, либо только активный... либо третий вариант. В обоих случаях надо кнопку допилять.

Dim session As New notessession
Dim db As New notesdatabase("","names.nsf")
Dim view As NotesView
Dim doc As notesdocument
Set view=db.GetView("Locations")
call notesView.AllEntries.StampAll("ExhaustiveNameLookup", "1")

Dim session As New notessession
Dim db As New notesdatabase("","names.nsf")
Dim view As NotesView
Dim doc As notesdocument
dim locName as String
Set view=db.GetView("Locations")
locName = session.GetEnvironmentString("Location", True)
Set doc=view.GetDocumentByKey(locName)
if not(doc is Nothing) then
doc.ExhaustiveNameLookup="1"
Call doc.save(True,True)
End If

 

[Recruit]

За примеры апдейта кнопки, большое человеческое спасибо

 

[Akupaka]

Потести только, я в голове компилил =)