Перемещение писем в папки

[K85]

если можете помогите 
уже раз 40 переделываю.......
создана база, в ней поля Name - название папки, Alias - доп.значение
потом в агенте

Код: [Выделить]

If (Strcompare(FormName$, "Memo", 1) = 0) Then
Subject$ = Trim$(doc.Subject(0))
'Достаем КОДИФИКАТОР
S1$ = Strleft(Subject$, "-")
S1$ = Trim$(Right(S1$, Len(S1$)-1))

'Достаем КОДИФИКАТОР-2
S2$ = Strright(Subject$, "-")
S2$ = Trim$(Left(S2$, Len(S2$)))проверяю название письма
далее необходимо найти это название в базе, но никак не могу понят как надо делать

Код: [Выделить]

Dim DB As NotesDatabase
Dim Doc As NotesDocument
Set DB = session.GetDatabase ( db.Server, "BВ\\gf.nsf" )
Set DB_DbCodesLookup = DB.GetView("Papki")
Set Doc = DB_DbCodesLookup.GetDocumentByKey(Lcase(Doc.GetItemValue("Alias")(0)))
If Not Doc Is Nothing Then ........
если закончить If Not Doc Is Nothing Then S1$ = Doc.GetItemValue("Alias")(0)
то создается новая папка с подпапкой, а должно было найти нужную папку и в нее переместить

[ViV]

Второй кусок кода странноватый...

Код: [Выделить]

Set DB = session.GetDatabase ( db.Server, "BВ\\gf.nsf" )один слеш лишний
Set DB = session.GetDatabase (db.Server, "BВ\gf.nsf")

Код: [Выделить]

Set Doc = DB_DbCodesLookup.GetDocumentByKey(Lcase(Doc.GetItemValue("Alias")(0)))откуда в Doc.GetItemValue("Alias")(0) может быть значение, если вы только ищете этот документ??

Set Doc = DB_DbCodesLookup.GetDocumentByKey(S2$)
If Not Doc Is Nothing Then
  mainfstr = Doc.Alias(0)
End if
для папки
и
Set Doc = DB_DbCodesLookup.GetDocumentByKey(S1$)
If Not Doc Is Nothing Then
  subfstr = Doc.Alias(0)
End if
для подпапки.

далее если заданы mainfstr и subfstr, то
Folder$ = mainfstr + "\" + subfstr

[K85]

ViV
Огромное спасибо! Все работает.
Есть еще небольшое дополнение, вдруг кому-то будет надо, перед Folder$ = mainfstr + "\" + subfstr
необходимо опять вернуться в почтовую базу

Код: [Выделить]

Set db = s.CurrentDatabase
Set doc=s.DocumentContextтак как иначе папки и подпапки создаются в базе BВ\gf.nsf

[ViV]

Лучше использовать другую переменную для базы справочника, не db, тогда и возвращаться не прийдется;)

[K85]

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

[ViV]

Попробуйте поставить кнопку с формулой:
@Command( [RefreshWindow] )

[K85]

точно! СПАСИБО 

[K85]

Доброе утро. Помогите, если можете.
Появилась проблема, когда в бд "BВ\gf.nsf" создаю название, которое имеет более 31 символа, то новая папка не создается в виде. Не подскажете почему?

[ViV]

Доброе утро!
Что значит "папка не создается в виде"? Может просто не создается папка с длинным именем?
Вообще ограничение на имена видов/папок - 64 символа (Domino limits). Возможно из-за русских символов получается 32 символа.

[K85]

т.е. с этим я ничего сделать не смогу?!
Папка не отображается в виде, если имеет, например 33 символа, как только делаю короче название папка отображается

[ViV]

Попробуйте вручную создать папку с таким именем, что на это скажет Lotus Notes?

А зачем такое громадное имя для папки, с ним же не удобно потом работать?

[K85]

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

[K85]

пробую сделать так:
@If ( @Length (@ThisValue) < 39;  @ThisValue;@Failure("Превышено количество"));
при кол-ве символов больше 38 пишет сообщение в самом поле Превышено количество 

[ViV]

Посмотрите в сторону "input validation"

[K85]

в Input Validation формула:
@If(@Length(@text(Name))<10;@Success;@Failure("Количество превысило 38 символов!"));
после ввода неверного значения сначала выскакивает окно с предупреждением, а потом окно: NotesError - field didn't pass validation formula.
Как от этого сообщения избавиться?!