Почтовый ящик

Тема в разделе "Lotus - Программирование", создана пользователем MMN, 21 янв 2009.

  1. MMN

    MMN Well-Known Member

    Регистрация:
    11 дек 2008
    Сообщения:
    97
    Симпатии:
    0
    В почтовом ящике лежат письма, каким то образом можно понять входящие письмо или нет (кроме визуального)??
    Допустим открывая письмо из инбокса нельзя было его отредактировать.
     
  2. Omh

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    Ну "($Inbox)" у нас фолдер.
    А NotesDocument имеет проперю FolderReferences.
    Можно это дело объединить и вуаля!
     
  3. MMN

    MMN Well-Known Member

    Регистрация:
    11 дек 2008
    Сообщения:
    97
    Симпатии:
    0
    Что то у меня не получается выдернуть название папки, в хелпе пишут что FolderReferences дает некий массив, как из него дернуть название папки ??
     
  4. Constantin A Chervonenko

    Constantin A Chervonenko Well-Known Member

    Регистрация:
    30 май 2006
    Сообщения:
    1.288
    Симпатии:
    0
    Поддержку этой проперти надо ещё активировать...
     
  5. MMN

    MMN Well-Known Member

    Регистрация:
    11 дек 2008
    Сообщения:
    97
    Симпатии:
    0
    Нашел такую тему, создал агента
    Код (Text):
    Sub Initialize
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Set db = session.CurrentDatabase
    db.FolderReferencesEnabled = True
    End Sub
    после его запуска в НОВЫХ письмах появились поля, а как в старых их активировать ??
     
  6. Omh

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    Ну погоди, а тупо перебрать папку inbox не годиться?
     
  7. MMN

    MMN Well-Known Member

    Регистрация:
    11 дек 2008
    Сообщения:
    97
    Симпатии:
    0
    нашел вариант проще
    в консоле сервака делаем
    load convert -m mail\*.nsf
     
  8. Akupaka

    Akupaka А че я?.. О.о

    Регистрация:
    4 окт 2007
    Сообщения:
    3.373
    Симпатии:
    2
    я бы так тоже сделал :blink:
     
  9. MMN

    MMN Well-Known Member

    Регистрация:
    11 дек 2008
    Сообщения:
    97
    Симпатии:
    0
    проверку на инбокс делал таким образом и запрещал редактирование входящих писем.

    Код (Text):
        Dim session As New NotesSession
    Dim dbm As NotesDatabase
    Set dbm = session.CurrentDatabase
    Dim Folder As NotesDocument
    Dim r
    Dim Title As String
    r = Evaluate("@Text($FolderRef)", Source.Document)
    If r(0)<>"" Then
    Set Folder = Dbm.GetDocumentByUNID(r(0))

    Title = Folder.~$Title(0)
    If Title = "($Inbox)" Then continue=False

    End If
    но насамом деле наверно правильнее будет проверять существует поле DeliveredDate или нет.
    во входящих письмах оно есть, в других его нет, просто с первым вариантом получаеться накладка, если у пользователя совершается сортировка писем по папкам, то входящие получаются не в инбоксе.
     
  10. Akupaka

    Akupaka А че я?.. О.о

    Регистрация:
    4 окт 2007
    Сообщения:
    3.373
    Симпатии:
    2
    а агент типа "Before new mail arrives" или "After new mail has arrived" не лучше для подобной цели?..
     
  11. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Офигенная защита. :)
    А вместо этого
    Код (Text):
    r = Evaluate("@Text($FolderRef)", Source.Document)
    Source.Document.FolderReferences нельзя использовать?
     
  12. MMN

    MMN Well-Known Member

    Регистрация:
    11 дек 2008
    Сообщения:
    97
    Симпатии:
    0
    На что у меня знаний хватило, то и сделал, в отличии от вас у меня опыт ковыряний всего пару месяцев. ))
     
  13. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Понятно. Ещё месяц поковыряешься и поймёшь как обойти. :huh:
    Ты напиши, зачем это нужно. Т.е. запрещать редактировать входящие.
     
  14. Akupaka

    Akupaka А че я?.. О.о

    Регистрация:
    4 окт 2007
    Сообщения:
    3.373
    Симпатии:
    2
    на то мы тебе и пишем, чтобы ты кроме того, что ковырялся сам, рассматривал другие предложения! :huh:
    мы же не писали, что ты глупец, что так сделал :huh:

    кроме того, если ты думаешь, что в наших приложениях все клево и красиво... то ты ошибаешься :))
    клево и красиво все выглядит до какого-то момента, когда приложение не превышает какой-то объем по коду, либо пока его можно размеренно и продуманно писать, а когда все надо "на вчера", да еще и несколькими людьми пишется, то... все когда-нить начинает превращаться в кубло повторяющихся функций, лишних связей и т.п.
     
  15. MMN

    MMN Well-Known Member

    Регистрация:
    11 дек 2008
    Сообщения:
    97
    Симпатии:
    0
    на самом деле, это больше для самоутверждения, програмер который обслуживает нашу компанию говорил что невозможно отличить письма в каких папках они живут, после того как я ему подкинул свой вариант, он пошел на попятную и начал выдавать свои теории ))
     
  16. Akupaka

    Akupaka А че я?.. О.о

    Регистрация:
    4 окт 2007
    Сообщения:
    3.373
    Симпатии:
    2
    всякое бывает... до 7-ки нельзя было, на сколько мне известно... разве что через шестую точку...
     
  17. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Почему нельзя?
    Через notesDocument.FolderReferences можно было. А судя по хелпу, свойство появилось в 5-ке.
     
  18. Akupaka

    Akupaka А че я?.. О.о

    Регистрация:
    4 окт 2007
    Сообщения:
    3.373
    Симпатии:
    2
    так, с чем я его попутал? :lol:
    в семерке новая фича появилась, на экзамене по ней был вопрос :()
    блин, пока готовился - помнил, сдал - забыл... что за привычка :))

    ...
    ага... @Command([DiscoverFolders]) новая... это я с ней спутал...
     
  19. MMN

    MMN Well-Known Member

    Регистрация:
    11 дек 2008
    Сообщения:
    97
    Симпатии:
    0
    теперь я и вас завел ))
     
  20. Akupaka

    Akupaka А че я?.. О.о

    Регистрация:
    4 окт 2007
    Сообщения:
    3.373
    Симпатии:
    2
    та не, я об этом спорить не собираюсь :lol: я этим не пользуюсь
     
Загрузка...

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