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

  • Автор темы Recruit
  • Дата начала
R

Recruit

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

Akupaka

А че я?.. О.о
04.10.2007
3 360
1
#4
Recruit
та ты попробуй на 6-7 версиях =) 8.5.3 - та же самая фигня, что и 8.5.2 ))
 
R

Recruit

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

Akupaka

А че я?.. О.о
04.10.2007
3 360
1
#6
Я так кнопкой тоже когда-то устанавливал значения пользователям :)

А по поводу конкретного параметра. Выходит, что ранее действовала настройка из нотес.ини, а теперь из документа местоположения? О.о
Ну и еще головняк может появиться, если у пользователя название местоположения называется иначе, не 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
 
R

Recruit

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