Удалить письма с определенной темой

Тема в разделе "Lotus - Программирование", создана пользователем k85, 17 сен 2015.

  1. k85

    k85 Well-Known Member

    Регистрация:
    11 окт 2011
    Сообщения:
    137
    Симпатии:
    0
    Необходимо удалить все письма с определенной темой как у всех пользователей, которым письмо отправили, так и у всех , кому его переслали + если переслали, то удалить и из отправленных
    Код (LotusScript):
    Sub Initialize
    Dim DbDir As New NotesDbDirectory("название сервера")
    Dim TmpDb As NotesDatabase
    Set TmpDb = DbDir.GetFirstDatabase(TEMPLATE_CANDIDATE)
    While Not TmpDb Is Nothing
    On Error Resume Next
    Call TmpDb.Open("", "")
    If TmpDb.IsOpen Then
     
    Dim collection As NotesDocumentCollection
    Namesubj="тест, который отправлен мне! "
    Set collection = TmpDb.Search({(Subject="} & Namesubj &  {")}  Or  {") & (Subject="} & "Fw: " & Namesubj &  {")} Or  {") & (Subject="} & "На: " & Namesubj &  {")} Or  {") & (Subject="} & ">>: " & Namesubj &  {")} ,  Nothing,0)
     
    If collection.Count > 0 Then
    Set maildoc = collection.GetFirstDocument
    Do Until maildoc Is Nothing
    Set nextDoc = collection.GetNextDocument(maildoc)
    Call maildoc.RemovePermanently(True)
     
    Set maildoc= nextDoc
    Loop
     
    End If
     
    End If
    Set TmpDb = DbDir.GetNextDatabase
    Wend
     
    End Sub
    запускаю от админа с фулл правами. Даже если у пользователя 100% нет письма он переходит
    Set maildoc = collection.GetFirstDocument
    Do Until maildoc Is Nothing
    ...
     
    #1 k85, 17 сен 2015
    Последнее редактирование модератором: 18 сен 2015
  2. savl

    savl Lotus team
    Lotus team

    Регистрация:
    28 окт 2011
    Сообщения:
    2.052
    Симпатии:
    146
    @k85, формулу корректно для поиска задайте, она неверная:
    попробуйте эту: {@Contains(Subject;"} & Namesubj &{")}
     
  3. k85

    k85 Well-Known Member

    Регистрация:
    11 окт 2011
    Сообщения:
    137
    Симпатии:
    0
    @savl, результат тот же
     
  4. Baneslaer

    Baneslaer Well-Known Member

    Регистрация:
    25 янв 2011
    Сообщения:
    121
    Симпатии:
    0
    Лень искать ошибку в формуле, но посоветовал бы еще добавить в формулу промежуток дат. С какого по какое число искать такие письма. Кроме того для контроля, создал бы простую базейку, в которой создавал доки с инфой сколько найдено писем в базе и сколько удалено. Такое помогает при отслеживании различных ошибок.
     
  5. ToxaRat

    ToxaRat Чёрный маг
    Lotus team

    Регистрация:
    6 ноя 2007
    Сообщения:
    3.046
    Симпатии:
    18
    да уж красавцы, достаточно одно слово общее указать чтобы всем наполовину ПЯ опустошить :)
     
Загрузка...

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