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

[azat20]

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

что в доке-приемнике создано столько полей limcard_lastedit, сколько приаттачилось файлов

можете заметить что тоже самое происходит в почте в с полем Body

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

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

 

[azat20]

мне надо чтобы было так, переход после 1) ко 2) делаю вручную AddLine:
1)Сообщение аттач аттач аттач аттач
2)Сообщение аттач аттач аттач аттач

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

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

 

[azat20]

Может есть у кого дельный совет в решении моей проблемы?

 

[Omh]

А что насчёт

NotesItem.CopyItemToDocument

?

 

[Medevic]

А можно получить список всех объектов notesRichTextItem.EmbeddedObjects и копировать их в новое поле. Не надо на диск сохранять.

 

[azat20]

Просто там у меня проверка делается, если такой файл (сравниваю по размеру и названию) существует уже, то он не добавляется.

 

[Medevic]

notesEmbeddedObject.FileSize и notesEmbeddedObject.Name

 

[azat20]

Нет, это я уже сделал. Не устраивает меня то, что после этой операции:

Call itemkuda.EmbedObject(EMBED_ATTACHMENT, "", Environ("Temp") & "\" & o1.Name)

Аттач добавляется на новую строку в RT поле