есть метод на Lotusscript Copyselectedastable?

deeeman

Well-known member
04.12.2007
383
0
#1
Привет!

есть задачка, формировать письма со ссылками на документы как в виде.
убодно делать CopySelectedAsTable, но это ручками.

А чтобы сервер сам мог делать тоже по расписанию получиться?

знаю что можно писать мегакод, в котором формировать таблицу в ричтексте, засовывать туда в каждую созданную ячейку поля, эьто гемор, тем более вид постоянно меняется.
Типа этого: Ссыль

есть другой метод?
 

hosm

* so what *
18.05.2009
2 442
6
#2
NotesNewsletter.FormatMsgWithDoclinks - это не то, что надо?

Добавлено: ну, просто получить коллекцию документов из вьюхи и он позволяет вывести какое-то поле из документа вместе со ссылкой на документ.
 

alik86

Lotus team
20.11.2008
465
1
#4
@Command([CopySelectedAsTable])

Добавлено: Только This @command is new with Release 8 ;)
 

hosm

* so what *
18.05.2009
2 442
6
#5
alik86
и типа она доступна в серверном агенте? =)
 

alik86

Lotus team
20.11.2008
465
1
#6
OKEN, я ня ведаю ;)
Кмк запихивать ссылки в ричтекст -- очень даже не плохое решение.
 

deeeman

Well-known member
04.12.2007
383
0
#7
я бы хотел так:

на сервере пробегаюсь по виду навигатором
выделяю нужную категорию со всем барахлом
и делаю копи тейбл
бабах и все в письмо вставилось...

есть в мире волшебство?
 
13.03.2009
625
1
#8
волшебство в мире несомненно есть. но у ui-шных приблуд обычно magic resist = 100500.
возможно здесь найдутся сишные монстры, способные расковырять, что конкретно зовется в CopySelectedAsTable и написать LS обертку.
а до тех пор, пока это щастье на нас не свалится - ищите пути обхода.

У CopySelectedAsTable есть две удобные фичи:
- собственно представление произвольной коллекции viewentry в виде таблицы
- поместить эту таблицу в clipboard.
Для эмуляции первой фичи можно юзать дикий код, использующий классы из семейства NotesRichText*, примерно такой как по вашей ссылке.
Но проще создать html таблицу и импортировать ее в RT поле через NSFItemAppend

<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">Потребность в эмуляции второй фичи у меня возникала всего один раз</div></div><div class="sp-body"><div class="sp-content">
Решал так:
Код:
	While Not entry Is Nothing
Forall value In entry.ColumnValues
Call stream.WriteText( value & TAB_SYMBOL	)
End Forall
Call stream.WriteText( NEW_LINE )
Set entry = nav.GetNext( entry )
Wend
stream.Position = 0

Dim js As New JAVASESSION
Dim clipboardClass As JAVACLASS
Set clipboardClass = js.GetClass("TextTransfer")
Dim clipboard As JavaObject
Set clipboard = clipboardClass.CreateObject
clipboard.setClipboardContents( stream.readText )
код TextTransfer тут
В результате работы кода в буфере обмена лежит нечто, что можно вставить в excel, openoffice calc и т.п....
 

deeeman

Well-known member
04.12.2007
383
0
#9
turumbay

охохо... спасибочки!
попробую сотворить чудо...