Clear Recent Contacts в почте

@R4z0R · Регистрация: 29.08.2017

Author24 — интернет-сервис помощи студентам

создаю письмо, в нем кнопку с кодом Lotus script:

Код

-------button code-----
Sub Click(Source As Button)
Dim nab As NotesDatabase
Set nab = New notesdatabase("","names.nsf")
Dim view As NotesView
Set view = nab.GetView("(Recent Contacts)")
Dim vc As Notesviewentrycollection
Set vc = view.allentries
Call vc.RemoveAll(True)
Msgbox "Finyshed. Removed " & vc.Count & " temporary entries from your personal address book."
End Sub
----- end code -----

отправляю, юзер жмет, но выскакивает ошибка "Object variable not set". Я думаю что у юзера не хватает прав на запуск скрипта. У меня поле Sign or run restricted LotusScript/Java agents: */DOM/ORG
Что нужно сделать, чтобы сработала кнопка?

@mvyush · 11.10.2012, 16:46

Я бы ещё добавил параметр в notes.ini, что агент отработал и при запуске проверял его значение. Или Вы хотите каждый день контакты чистить?

@VtodSh · 12.10.2012, 02:48

Зачем каждый ПЯ изменять? Если вы меняли шаблон (как я понял из предыдущих сообщений), то надо просто запустить задачу Design (см. админский хелп), и дизайн сам разлезется по всем почтовым ящикам.

Добавлено: я не стал бы завязываться на русское имя вида, т.к. у некоторых пользователей АК м.б. создана по английско-американскому шаблону, и у них это работать не будет. Если внимательно посмотреть, то у вида имеется псевдоним RecentCollaborators, который и надо использовать.

@R4z0R · 14.10.2012, 12:14

Зачем каждый ПЯ изменять? Если вы меняли шаблон (как я понял из предыдущих сообщений), то надо просто запустить задачу Design (см. админский хелп), и дизайн сам разлезется по всем почтовым ящикам.

Добавлено: я не стал бы завязываться на русское имя вида, т.к. у некоторых пользователей АК м.б. создана по английско-американскому шаблону, и у них это работать не будет. Если внимательно посмотреть, то у вида имеется псевдоним RecentCollaborators, который и надо использовать.

Дизайн ПЯ у всех разный, части юзеров до меня была установлена английская версия, ну и смешение разных версий, поэтому массово, одной командой не обойтись.
Из вышенаписанного следует, что у некоторых юзеров вьюшка по-русски обзывается, у других по-английски. А по-поводу RecentCollaborators можно подробнее?

@mvyush · 14.10.2012, 13:14

Дизайн ПЯ у всех разный, части юзеров до меня была установлена английская версия, ну и смешение разных версий, поэтому массово, одной командой не обойтись.
Из вышенаписанного следует, что у некоторых юзеров вьюшка по-русски обзывается, у других по-английски. А по-поводу RecentCollaborators можно подробнее?

1) В любом случае внести изменения в ДВА шаблона проще чем во ВСЕ почтовые базы.
2) У представлений, как и у некоторых других элементов дизайна, кроме имени могут быть псевдонимы. Как правило, имена представлений в локализованном и английском шаблонах различаются, а псевдонимы совпадают, поэтому удобнее получать представление по псевдониму.

@R4z0R · 16.10.2012, 10:28

Агента надо создать в шаблоне? Какой у него будет Sub?
Если такой код будет, то это будет кнопка:

Код

Sub Click(Source As Button)
Dim nab As NotesDatabase
Set nab = New notesdatabase("","names.nsf")
Dim view As NotesView
Set view = nab.GetView("(Recent Contacts)")
if view is nothyng then
Set view = nab.GetView("(Недавние контакты)")
End if
Dim vc As Notesviewentrycollection
Set vc = view.allentries
Call vc.RemoveAll(True)
End Sub

Последовательность такая? Открыть шаблон (mail85rus.ntf) в Дизайнере -> Code -> Agents -> New agent и в Initialize вставить код:

Код

     Dim nab As NotesDatabase
Set nab = New notesdatabase("","names.nsf")
Dim view As NotesView
Set view = nab.GetView("(Recent Contacts)")
if view is nothyng then
Set view = nab.GetView("(Недавние контакты)")
End if
Dim vc As Notesviewentrycollection
Set vc = view.allentries
Call vc.RemoveAll(True)

между Sub Initialize и End Sub
Потом открываю шаблон, Code -> DataBase Script -> PostOpen и между Sub Postopen(Source As Notesuidatabase) и End Sub
вставляю код

Код

    Sub Postopen(Source As Notesuidatabase)
Dim db As NotesDatabase
Dim ag As NotesAgent
Set db = Source.Database

Set ag = db.Getagent(Test")
If Not ag Is Nothyng Then Call ag.Run()

И все?

@R4z0R · 16.10.2012, 11:06

вроде все получилось, осталось подправить ECL в политиках, чтобы окошко безопасности не появлялось. Все спасибо и "+"

@VtodSh · 16.10.2012, 13:00

Сообщение от R4z0R

А по-поводу RecentCollaborators можно подробнее?

nvy выше пояснил.
Надо код:

Код

Set view = nab.GetView("(Recent Contacts)")
if view is nothyng then
Set view = nab.GetView("(Недавние контакты)")
End if

заменить на:

Код

Set view = nab.GetView("RecentCollaborators")
If view Is Nothyng Then Exit Sub

Сообщение от R4z0R

осталось подправить ECL в политиках, чтобы окошко безопасности не появлялось

Чтобы оно не появлялось, не надо всех пользователей заставлять доверять своему id. Лучше после изменений подписать дизайн шаблона сервером (быстрее в Domino Administratorе).

@R4z0R · 18.10.2012, 10:20

хм, теперь при запуске появляется окошко:

Could not execute macro:
Unsupported trigger and search in the background or embedded agent

не понял как сделать Trigger: None, пока сделал вот так:

@sovt · 18.10.2012, 10:40

Вот это и надо было. Пробуй.

@R4z0R · 18.10.2012, 10:44

не помогает, попробовал поставить Agent list selection, Target: None....что-то ничего не изменилось

@sovt · 18.10.2012, 10:58

ага, не поглядел я...
Trigger : On Action сделай, там будет Action venu selection. Target: None

@R4z0R · 18.10.2012, 16:56

блин, уже удалил все изменения, а ошибка все равно появляется! Проверил в своем ПЯ, там агент появился ClearRC, но у него галки триггера стоят как по-умолчанию, хотя в шаблоне я их поставил как надо. Поменял в ПЯ - ошибка пропала......как так получается? Как исправить ситуацию? Теперь у всех, кто использует правленный шаблон неправильные значения триггера. Как это массово исправить?

@VtodSh · 18.10.2012, 17:08

Переименуйте агент в шаблоне. При обновлении агент со старым именем должен удалиться, а с новым добавиться.

Вообще такие баги лечатся с помощью ручного Replace Design и выставления заново имени шаблона в свойствах БД, но муторное это дело.

@R4z0R · 18.10.2012, 17:31

Проверил в своем ПЯ, там агент появился ClearRC, но у него галки триггера стоят как по-умолчанию, хотя в шаблоне я их поставил как надо. Поменял в ПЯ - ошибка пропала......как так получается? Как исправить ситуацию? Теперь у всех, кто использует правленный шаблон неправильные значения триггера. Как это массово исправить?

@R4z0R · 21.10.2012, 09:23

вроде все расползлось как надо

@VtodSh 1 / 1 / 0 Регистрация: 07.12.2009 Сообщений: 1,197
	12.10.2012, 02:48	22
	Зачем каждый ПЯ изменять? Если вы меняли шаблон (как я понял из предыдущих сообщений), то надо просто запустить задачу Design (см. админский хелп), и дизайн сам разлезется по всем почтовым ящикам. Добавлено: я не стал бы завязываться на русское имя вида, т.к. у некоторых пользователей АК м.б. создана по английско-американскому шаблону, и у них это работать не будет. Если внимательно посмотреть, то у вида имеется псевдоним RecentCollaborators, который и надо использовать. 0

@R4z0R 0 / 0 / 0 Регистрация: 29.08.2017 Сообщений: 187
	16.10.2012, 11:06	26
	вроде все получилось, осталось подправить ECL в политиках, чтобы окошко безопасности не появлялось. Все спасибо и "+" 0

@VtodSh 1 / 1 / 0 Регистрация: 07.12.2009 Сообщений: 1,197
	16.10.2012, 13:00	27
	Сообщение от R4z0R А по-поводу RecentCollaborators можно подробнее? nvy выше пояснил. Надо код: Код Set view = nab.GetView("(Recent Contacts)") if view is nothyng then Set view = nab.GetView("(Недавние контакты)") End if заменить на: Код Set view = nab.GetView("RecentCollaborators") If view Is Nothyng Then Exit Sub Сообщение от R4z0R осталось подправить ECL в политиках, чтобы окошко безопасности не появлялось Чтобы оно не появлялось, не надо всех пользователей заставлять доверять своему id. Лучше после изменений подписать дизайн шаблона сервером (быстрее в Domino Administratorе). 0

@R4z0R 0 / 0 / 0 Регистрация: 29.08.2017 Сообщений: 187
	18.10.2012, 10:44	30
	не помогает, попробовал поставить Agent list selection, Target: None....что-то ничего не изменилось 0

@R4z0R 0 / 0 / 0 Регистрация: 29.08.2017 Сообщений: 187
	18.10.2012, 16:56	32
	блин, уже удалил все изменения, а ошибка все равно появляется! Проверил в своем ПЯ, там агент появился ClearRC, но у него галки триггера стоят как по-умолчанию, хотя в шаблоне я их поставил как надо. Поменял в ПЯ - ошибка пропала......как так получается? Как исправить ситуацию? Теперь у всех, кто использует правленный шаблон неправильные значения триггера. Как это массово исправить? 0

@R4z0R 0 / 0 / 0 Регистрация: 29.08.2017 Сообщений: 187
		1
	Clear Recent Contacts в почте 03.10.2012, 15:24. Показов 25849. Ответов 34 Метки нет (Все метки) создаю письмо, в нем кнопку с кодом Lotus script: Код -------button code----- Sub Click(Source As Button) Dim nab As NotesDatabase Set nab = New notesdatabase("","names.nsf") Dim view As NotesView Set view = nab.GetView("(Recent Contacts)") Dim vc As Notesviewentrycollection Set vc = view.allentries Call vc.RemoveAll(True) Msgbox "Finyshed. Removed " & vc.Count & " temporary entries from your personal address book." End Sub ----- end code ----- отправляю, юзер жмет, но выскакивает ошибка "Object variable not set". Я думаю что у юзера не хватает прав на запуск скрипта. У меня поле Sign or run restricted LotusScript/Java agents: */DOM/ORG Что нужно сделать, чтобы сработала кнопка? 0

@mvyush 0 / 0 / 0 Регистрация: 19.04.2009 Сообщений: 2,219
	11.10.2012, 16:46	21
	Я бы ещё добавил параметр в notes.ini, что агент отработал и при запуске проверял его значение. Или Вы хотите каждый день контакты чистить? 0

@R4z0R 0 / 0 / 0 Регистрация: 29.08.2017 Сообщений: 187
	14.10.2012, 12:14	23
	Зачем каждый ПЯ изменять? Если вы меняли шаблон (как я понял из предыдущих сообщений), то надо просто запустить задачу Design (см. админский хелп), и дизайн сам разлезется по всем почтовым ящикам. Добавлено: я не стал бы завязываться на русское имя вида, т.к. у некоторых пользователей АК м.б. создана по английско-американскому шаблону, и у них это работать не будет. Если внимательно посмотреть, то у вида имеется псевдоним RecentCollaborators, который и надо использовать. Дизайн ПЯ у всех разный, части юзеров до меня была установлена английская версия, ну и смешение разных версий, поэтому массово, одной командой не обойтись. Из вышенаписанного следует, что у некоторых юзеров вьюшка по-русски обзывается, у других по-английски. А по-поводу RecentCollaborators можно подробнее? 0

@mvyush 0 / 0 / 0 Регистрация: 19.04.2009 Сообщений: 2,219
	14.10.2012, 13:14	24
	Дизайн ПЯ у всех разный, части юзеров до меня была установлена английская версия, ну и смешение разных версий, поэтому массово, одной командой не обойтись. Из вышенаписанного следует, что у некоторых юзеров вьюшка по-русски обзывается, у других по-английски. А по-поводу RecentCollaborators можно подробнее? 1) В любом случае внести изменения в ДВА шаблона проще чем во ВСЕ почтовые базы. 2) У представлений, как и у некоторых других элементов дизайна, кроме имени могут быть псевдонимы. Как правило, имена представлений в локализованном и английском шаблонах различаются, а псевдонимы совпадают, поэтому удобнее получать представление по псевдониму. 0

@R4z0R 0 / 0 / 0 Регистрация: 29.08.2017 Сообщений: 187
	18.10.2012, 10:20	28
	хм, теперь при запуске появляется окошко: Could not execute macro: Unsupported trigger and search in the background or embedded agent не понял как сделать Trigger: None, пока сделал вот так: 0

@sovt 0 / 0 / 0 Регистрация: 27.10.2011 Сообщений: 2,124
	18.10.2012, 10:40	29
	Вот это и надо было. Пробуй. 0

@sovt 0 / 0 / 0 Регистрация: 27.10.2011 Сообщений: 2,124
	18.10.2012, 10:58	31
	ага, не поглядел я... Trigger : On Action сделай, там будет Action venu selection. Target: None 0

@VtodSh 1 / 1 / 0 Регистрация: 07.12.2009 Сообщений: 1,197
	18.10.2012, 17:08	33
	Переименуйте агент в шаблоне. При обновлении агент со старым именем должен удалиться, а с новым добавиться. Вообще такие баги лечатся с помощью ручного Replace Design и выставления заново имени шаблона в свойствах БД, но муторное это дело. 0

@R4z0R 0 / 0 / 0 Регистрация: 29.08.2017 Сообщений: 187
	18.10.2012, 17:31	34
	Проверил в своем ПЯ, там агент появился ClearRC, но у него галки триггера стоят как по-умолчанию, хотя в шаблоне я их поставил как надо. Поменял в ПЯ - ошибка пропала......как так получается? Как исправить ситуацию? Теперь у всех, кто использует правленный шаблон неправильные значения триггера. Как это массово исправить? 0

@R4z0R 0 / 0 / 0 Регистрация: 29.08.2017 Сообщений: 187
	21.10.2012, 09:23	35
	вроде все расползлось как надо 0