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

azat20

Well-known member
22.07.2008
244
0
#1
Дорый день!
Нужно копировать с одного документа в другой аттачи. Из ричтекста в ричтекст. Тут маленький кусок кода,а именно копирование.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]
 

morpheus

скриптописец
07.08.2006
3 915
1
#2
что в доке-приемнике создано столько полей limcard_lastedit, сколько приаттачилось файлов
можете заметить что тоже самое происходит в почте в с полем Body

И еще вопрос.Почему аттачи добавляются не подряд в одну строку,как мне надо,а на следующую строку. Перевод на другую строку я делаю AddLine
чтото не совсем понял, так как Вам надо?
 

azat20

Well-known member
22.07.2008
244
0
#3
мне надо чтобы было так, переход после 1) ко 2) делаю вручную AddLine:
1)Сообщение аттач аттач аттач аттач
2)Сообщение аттач аттач аттач аттач

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

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

azat20

Well-known member
22.07.2008
244
0
#4
Может есть у кого дельный совет в решении моей проблемы?
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#6
А можно получить список всех объектов notesRichTextItem.EmbeddedObjects и копировать их в новое поле. Не надо на диск сохранять.
 

azat20

Well-known member
22.07.2008
244
0
#7
Просто там у меня проверка делается, если такой файл (сравниваю по размеру и названию) существует уже, то он не добавляется.
 

azat20

Well-known member
22.07.2008
244
0
#9
Нет, это я уже сделал. Не устраивает меня то, что после этой операции:
Код:
Call itemkuda.EmbedObject(EMBED_ATTACHMENT, "", Environ("Temp") & "\" & o1.Name)
Аттач добавляется на новую строку в RT поле