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

[deeeman]

Привет!

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

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

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

Ссылка скрыта от гостей

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

 

[hosm]

NotesNewsletter.FormatMsgWithDoclinks - это не то, что надо?

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

 

[deeeman]

хотелось бы как Copyselectedastable =)

 

[alik86]

@Command([CopySelectedAsTable])

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

 

[hosm]

alik86
и типа она доступна в серверном агенте? =)

 

[alik86]

OKEN, я ня ведаю
Кмк запихивать ссылки в ричтекст -- очень даже не плохое решение.

 

[deeeman]

я бы хотел так:

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

есть в мире волшебство?

 

[turumbay]

есть в мире волшебство?

волшебство в мире несомненно есть. но у 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 link removed
В результате работы кода в буфере обмена лежит нечто, что можно вставить в excel, openoffice calc и т.п....

 

[deeeman]

turumbay

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