Mail Rules На Клиенте Есть, Но Не Видны...

[slot17]

Добрый!



Натолкнулся на юзера, который руками пер*цензура*ил у себя добрую половину почтовых доменов.
На сервере в ивентах сообщения - удалено почтовым правилом.
Почта до него соответственно не доходит.

Захожу к клиенту - папка с правилами пуста, но письма сами раскладываются по папкам.. те правила все же есть.
Открыл старый бекап с почтовым файлом юзера - правил более 200!

За неделю до этого я обновил формат баз с ods43 до ods48.

Обновления вида, шаблона, и фиксапы не помогают....
Сервер 8.5.3, клиенты 8.5.

Может кто бился с этим. Подскажите как увидеть эти правила, ну или просто поудалять их.

 

[rinsk]

Добрый!

Натолкнулся на юзера, который руками пер*цензура*ил у себя добрую половину почтовых доменов.
На сервере в ивентах сообщения - удалено почтовым правилом.
Почта до него соответственно не доходит.

Захожу к клиенту - папка с правилами пуста, но письма сами раскладываются по папкам.. те правила все же есть.
Открыл старый бекап с почтовым файлом юзера - правил более 200!

За неделю до этого я обновил формат баз с ods43 до ods48.

Обновления вида, шаблона, и фиксапы не помогают....
Сервер 8.5.3, клиенты 8.5.

Может кто бился с этим. Подскажите как увидеть эти правила, ну или просто поудалять их.

Создать там правило. включить его. Отключить правило. Удалить правило через кнопку. Отписаться о результате.

 

[Wanderstep]

Подробный мануал на сей счет на сайте IBM, в том числе и с кодом скрипта, который эти правила вычищает из профайла:

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

 

[slot17]

Создать там правило. включить его. Отключить правило. Удалить правило через кнопку. Отписаться о результате.

1. При попытке создать правила вылетает ошибка - Formula is Hidden

2. По ссылке приведен агент для версии 8 и выше.

Dim s As New notessession
Dim db As notesdatabase
Dim rulesfolder As notesview
Dim rules As notesviewentrycollection
Dim rule As notesviewentry
Dim ruledoc As notesdocument
Set db=s.currentdatabase
Set rulesfolder=db.getview("Rules")
Set rules=rulesfolder.allentries
Set profile=db.GetProfileDocument("CalendarProfile")
'Optional code to remove rule entries from the Calendar Profile which did not disable as expected.
'The code can be used if you want to "clean out" the rule entirely in the profile.
'NOTE: The code below will disable the C&S Miniview rule so it must be manually re-enabled.

'If profile.getitemvalue("Use_CalendarRule")(0) = "1" Then
' profile.Use_CalendarRule = "0"
'End If
'Set Count=profile.getfirstitem("$FilterFormulaCount")
'Call count.remove
'Forall ff In profile.Items
' If ff.type = 1536 And Lcase(Left(ff.name,15)) = "$filterformula_" Then
' Call ff.remove
' End If
'End Forall
'Call profile.Save(True, True)
If profile.getitemvalue("Use_CalendarRule")(0) = "1" Then
number=1
Else
number=0
End If
Set rule=rules.getfirstentry
While Not rule Is Nothing
Set ruledoc=rule.document
ruledoc.ordernum=Cstr(number)
Call ruledoc.save(True, True)
Set rule=rules.getnextentry(rule)
number=number+1
Wend


В описании написано что я должен должен объявить все переменные в образце кода....

В общем создать агент, копирую кусок туда, пытаюсь сохранить, вылетает ругань на 32 строчку с Set rule=rules.getnextentry(rule)

Подскажите что не так делаю... Грубо говоря, напишите текст рабочего агента который эти правила потрет.

 

[rustemka71]

Самое простое удалить calendar profile? но вместе с ним удалятся всякие настройки п/я. Есть продукт называется Ytria ScanEZ - вот в нем уже можно редактировать правила

 

[alexstudent]

Самое простое удалить calendar profile? но вместе с ним удалятся всякие настройки п/я. Есть продукт называется Ytria ScanEZ - вот в нем уже можно редактировать правила

Именно это программка и помогла.
В категории Documents\Mailrule показало 16 правил, а в Profile Documents\calendarprofile (где количество полей $FilterFormula_1 ... $FilterFormula_n, соответствует количеству правил) было 17-ое поле $FilterFormula_17 как раз то которое было невидимо и постоянно отрабатывало. Удалив $FilterFormula_17 проблема была решена.