Копирование в Rich Text

Тема в разделе "Lotus - Программирование", создана пользователем azat20, 1 окт 2008.

  1. azat20

    azat20 Well-Known Member

    Регистрация:
    22 июл 2008
    Сообщения:
    244
    Симпатии:
    0
    Дорый день!
    Нужно копировать с одного документа в другой аттачи. Из ричтекста в ричтекст. Тут маленький кусок кода,а именно копирование.Itemkuda - RT в документе-приемнике.
    Внимание!Проблема
    После прохождения процедуры, вижу, что в доке-приемнике создано столько полей limcard_lastedit, сколько приаттачилось файлов. А мне нужно чтобы все в одно поле копировалось!
    И еще вопрос.Почему аттачи добавляются не подряд в одну строку,как мне надо,а на следующую строку. Перевод на другую строку я делаю AddLine. Хотя иногда для разных доков работает корректно
    [codebox]
    Set itemkuda = doc.GetFirstItem("limcard_lastedit")
    o1.ExtractFile(Environ("Temp") & "\" & o1.Name)
    Call itemkuda.EmbedObject(EMBED_ATTACHMENT, "", Environ("Temp") & "\" & o1.Name)
    Kill Environ("Temp") & "\" & o1.Name
    Call itemkuda.Update
    pardoc.contr_buh=Now() & " " & sess.CommonUserName
    Call pardoc.Save(True,False)
    [/codebox]
     
  2. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    можете заметить что тоже самое происходит в почте в с полем Body

    чтото не совсем понял, так как Вам надо?
     
  3. azat20

    azat20 Well-Known Member

    Регистрация:
    22 июл 2008
    Сообщения:
    244
    Симпатии:
    0
    мне надо чтобы было так, переход после 1) ко 2) делаю вручную AddLine:
    1)Сообщение аттач аттач аттач аттач
    2)Сообщение аттач аттач аттач аттач

    а получается так:
    1) Сообщение аттач
    аттач
    аттач
    аттач
    2)...

    т.е. аттачи не подряд идут при выполении
    Call itemkuda.EmbedObject(EMBED_ATTACHMENT, "", Environ("Temp") & "\" & o1.Name)
     
  4. azat20

    azat20 Well-Known Member

    Регистрация:
    22 июл 2008
    Сообщения:
    244
    Симпатии:
    0
    Может есть у кого дельный совет в решении моей проблемы?
     
  5. Omh

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    А что насчёт
    Код (Text):
    NotesItem.CopyItemToDocument
    ?
     
  6. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    А можно получить список всех объектов notesRichTextItem.EmbeddedObjects и копировать их в новое поле. Не надо на диск сохранять.
     
  7. azat20

    azat20 Well-Known Member

    Регистрация:
    22 июл 2008
    Сообщения:
    244
    Симпатии:
    0
    Просто там у меня проверка делается, если такой файл (сравниваю по размеру и названию) существует уже, то он не добавляется.
     
  8. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    notesEmbeddedObject.FileSize и notesEmbeddedObject.Name
     
  9. azat20

    azat20 Well-Known Member

    Регистрация:
    22 июл 2008
    Сообщения:
    244
    Симпатии:
    0
    Нет, это я уже сделал. Не устраивает меня то, что после этой операции:
    Код (Text):
    Call itemkuda.EmbedObject(EMBED_ATTACHMENT, "", Environ("Temp") & "\" & o1.Name)
    Аттач добавляется на новую строку в RT поле
     
Загрузка...

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