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

Тема в разделе "Lotus - Администрирование", создана пользователем slot17, 20 сен 2013.

  1. slot17

    slot17 New Member

    Регистрация:
    7 авг 2013
    Сообщения:
    4
    Симпатии:
    0
    Добрый!



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

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

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

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

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

    rinsk Lotus team
    Lotus team

    Регистрация:
    12 ноя 2009
    Сообщения:
    795
    Симпатии:
    78
    Создать там правило. включить его. Отключить правило. Удалить правило через кнопку. Отписаться о результате.
     
  3. Wanderer

    Wanderer Lotus team
    Lotus team

    Регистрация:
    23 мар 2006
    Сообщения:
    367
    Симпатии:
    13
  4. slot17

    slot17 New Member

    Регистрация:
    7 авг 2013
    Сообщения:
    4
    Симпатии:
    0

    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)

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

    rustemka71 New Member

    Регистрация:
    22 мар 2012
    Сообщения:
    2
    Симпатии:
    0
    Самое простое удалить calendar profile? но вместе с ним удалятся всякие настройки п/я. Есть продукт называется Ytria ScanEZ - вот в нем уже можно редактировать правила
     
  6. alexstudent

    alexstudent Well-Known Member

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

Поделиться этой страницей