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

[MMN]

В почтовом ящике лежат письма, каким то образом можно понять входящие письмо или нет (кроме визуального)??
Допустим открывая письмо из инбокса нельзя было его отредактировать.

 

[Omh]

Ну "($Inbox)" у нас фолдер.
А NotesDocument имеет проперю FolderReferences.
Можно это дело объединить и вуаля!

 

[MMN]

Что то у меня не получается выдернуть название папки, в хелпе пишут что FolderReferences дает некий массив, как из него дернуть название папки ??

 

[Constantin A Chervonenko]

Ну "($Inbox)" у нас фолдер.
А NotesDocument имеет проперю FolderReferences.

Поддержку этой проперти надо ещё активировать...

 

[MMN]

Нашел такую тему, создал агента

Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
db.FolderReferencesEnabled = True
End Sub

после его запуска в НОВЫХ письмах появились поля, а как в старых их активировать ??

 

[Omh]

Ну погоди, а тупо перебрать папку inbox не годиться?

 

[MMN]

нашел вариант проще
в консоле сервака делаем
load convert -m mail\*.nsf

 

[Akupaka]

Ну погоди, а тупо перебрать папку inbox не годиться?

я бы так тоже сделал :blink:

 

[MMN]

проверку на инбокс делал таким образом и запрещал редактирование входящих писем.

	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 или нет.
во входящих письмах оно есть, в других его нет, просто с первым вариантом получаеться накладка, если у пользователя совершается сортировка писем по папкам, то входящие получаются не в инбоксе.

 

[Akupaka]

а агент типа "Before new mail arrives" или "After new mail has arrived" не лучше для подобной цели?..

 

[Medevic]

Офигенная защита.
А вместо этого

r = Evaluate("@Text($FolderRef)", Source.Document)

Source.Document.FolderReferences нельзя использовать?

 

[MMN]

а агент типа "Before new mail arrives" или "After new mail has arrived" не лучше для подобной цели?..

Офигенная защита.
А вместо этого
r = Evaluate("@Text($FolderRef)", Source.Document)

Source.Document.FolderReferences нельзя использовать?

На что у меня знаний хватило, то и сделал, в отличии от вас у меня опыт ковыряний всего пару месяцев. ))

 

[Medevic]

Понятно. Ещё месяц поковыряешься и поймёшь как обойти. :huh:
Ты напиши, зачем это нужно. Т.е. запрещать редактировать входящие.

 

[Akupaka]

На что у меня знаний хватило, то и сделал, в отличии от вас у меня опыт ковыряний всего пару месяцев. ))

на то мы тебе и пишем, чтобы ты кроме того, что ковырялся сам, рассматривал другие предложения! :huh:
мы же не писали, что ты глупец, что так сделал :huh:

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

 

[MMN]

Ты напиши, зачем это нужно. Т.е. запрещать редактировать входящие.

на самом деле, это больше для самоутверждения, програмер который обслуживает нашу компанию говорил что невозможно отличить письма в каких папках они живут, после того как я ему подкинул свой вариант, он пошел на попятную и начал выдавать свои теории ))

 

[Akupaka]

на самом деле, это больше для самоутверждения, програмер который обслуживает нашу компанию говорил что невозможно отличить письма в каких папках они живут, после того как я ему подкинул свой вариант, он пошел на попятную и начал выдавать свои теории ))

всякое бывает... до 7-ки нельзя было, на сколько мне известно... разве что через шестую точку...

 

[Medevic]

Почему нельзя?
Через notesDocument.FolderReferences можно было. А судя по хелпу, свойство появилось в 5-ке.

 

[Akupaka]

так, с чем я его попутал? :lol:
в семерке новая фича появилась, на экзамене по ней был вопрос )
блин, пока готовился - помнил, сдал - забыл... что за привычка )

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

 

[MMN]

теперь я и вас завел ))

 

[Akupaka]

та не, я об этом спорить не собираюсь :lol: я этим не пользуюсь