вставка вложений

[oxystile]

@Command([EditGotoField];"Attach");
@Command([EditInsertFileAttachment])
-помещает вложение в начало поля. как сделать, чтобы размещалось в конце, причем каждое последующее вложение с новой строки??

 

[Sandr]

Скриптом... Смотрим NotesRichTextItem class...

 

[oxystile]

уже смотрю, но как через скрипт выполнить @Command([EditInsertFileAttachment]) не представляю

 

[root]

в сторону
Call notesRichTextItem.AddNewLine( n% [, forceParagraph ] )
для собак
@Command([EditInsertText]; @Char(0));

 

[Ronchik]

Для: oxystile
просто написать все на скрипте

 

[Omh]

Метод EmbeddObject, но это на backend'e

 

[oxystile]

Метод EmbeddObject, но это на backend'e

Set notesEmbeddedObject = notesRichTextItem.EmbedObject( type%, class$, source$, [ name$ ] )
да, только тут название файла и путь предварительно выяснить а потом только в EmbedObject загнать

 

[Omh]

ws.OpenFileDialog в помощь

 

[root]

@Command( [EditRight]; @Text (@Length(Un)) );
@Command([EditInsertText]; @Char(0));
@Command([EditInsertFileAttachment])

 

[oxystile]

@Command( [EditRight]; @Text (@Length(Un)) );
@Command([EditInsertText]; @Char(0));
@Command([EditInsertFileAttachment])

lotus notes: can not execute this specific comand.
т..е. не прошло

 

[root]

Для: oxystile
Открой его на редактирование
@Command( [EditDocument] );

Делаем доп вычисляемое поле например Count1
Value

Text1 := @Abstract([TextOnly]; 16000; ""; UN);
@length(Text1)

Получили длину текста.

и Акшен

@Command( [EditDocument] );
@Command( [EditGotoField]; UN );
@Command ([EditRight];@Text (Count1));
@Command([EditInsertText]; @Char(0));
@Command([EditInsertFileAttachment]);
@Command( [FileSave] )

 

[oxystile]

с редактированием понятно...даже лучше так
@If(@IsDocBeingEdited; @True;@Command( [EditDocument] ; 1 ));

кстати Un-это поле с вложениями?
@If(@IsDocBeingEdited; @True;@Command( [EditDocument] ; 1 ));
@Command( [EditGotoField]; Attach);
@Command ([EditRight];@Text (count1));
@Command([EditInsertText]; @Char(0));
@Command([EditInsertFileAttachment]);
@Command( [FileSave] )

---count1 по формуле =3 и в итоге курсор перемешается в первое текст поле на 3-ю строку

почти получилось скриптом
stringArray = workspace.OpenFileDialog( True )
uidoc.EditMode=False
Forall v In stringArray
Set object = body.EmbedObject ( EMBED_ATTACHMENT, "", v)
Call body.AddNewLine(1)
Call doc.Save(True, True)
End Forall
но добавленные вложения сразу не отображаются, только после переокрытию дока.
как бы сделать чтобы сразу в поле появлялось то что добавили

 

[Omh]

Для: oxystile

как бы сделать чтобы сразу в поле появлялось то что добавили

Переоткрыть скриптом.

 

[root]

кстати Un-это поле с вложениями?

ДА но в начале идет текст

Переоткрыть скриптом.
uidoc.Close
Set uidoc = ws.EditDocument(False,uidoc.Document )

 

[oxystile]

спасибо!!! получилось как надо!

 

[root]

Хм. и в правду прошу прощения, незаметил.