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

Тема в разделе "Lotus - Программирование", создана пользователем oxystile, 12 сен 2007.

Наш партнер Genesis Hackspace
  1. oxystile

    oxystile Гость

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

    Sandr Гость

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

    oxystile Гость

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

    root Гость

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

    Ronchik Гость

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

    Omh Well-Known Member
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    Метод EmbeddObject, но это на backend'e
     
  7. oxystile

    oxystile Гость

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

    Omh Well-Known Member
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    ws.OpenFileDialog в помощь :)
     
  9. root

    root Гость

    Код (Text):
    @Command( [EditRight]; @Text (@Length(Un)) );
    @Command([EditInsertText]; @Char(0));
    @Command([EditInsertFileAttachment])
     
  10. oxystile

    oxystile Гость

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

    root Гость

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

    Делаем доп вычисляемое поле например Count1
    Value
    Код (Text):
    Text1 := @Abstract([TextOnly]; 16000; ""; UN);
    @length(Text1)
    Получили длину текста.

    и Акшен

    Код (Text):
    @Command( [EditDocument] );
    @Command( [EditGotoField]; UN );
    @Command ([EditRight];@Text (Count1));
    @Command([EditInsertText]; @Char(0));
    @Command([EditInsertFileAttachment]);
    @Command( [FileSave] )
     
  12. oxystile

    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
    но добавленные вложения сразу не отображаются, только после переокрытию дока.
    как бы сделать чтобы сразу в поле появлялось то что добавили
     
  13. Omh

    Omh Well-Known Member
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    Для: oxystile
    Переоткрыть скриптом.
     
  14. root

    root Гость

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

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

    oxystile Гость

    :D спасибо!!! получилось как надо!
     
  16. root

    root Гость

    Хм. и в правду прошу прощения, незаметил.
     
Загрузка...
Похожие Темы - вставка вложений
  1. Dragon108
    Ответов:
    1
    Просмотров:
    484
  2. vitte
    Ответов:
    8
    Просмотров:
    754
  3. k85
    Ответов:
    2
    Просмотров:
    701
  4. lionk
    Ответов:
    6
    Просмотров:
    781
  5. sasha465
    Ответов:
    2
    Просмотров:
    1.381

Поделиться этой страницей