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

@ozot20 · Регистрация: 18.07.2008

Author24 — интернет-сервис помощи студентам

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

@morphyus · 30.09.2008, 10:27

Сообщение от Azat

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

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

Сообщение от Azat

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

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

@ozot20 · 30.09.2008, 10:34

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

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

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

@ozot20 · 15.12.2008, 13:30

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

@Omh · 15.12.2008, 13:36

А что насчёт

Код

NotesItem.CopyItemToDocument

?

@Mydyvys · 15.12.2008, 13:45

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

@ozot20 · 15.12.2008, 14:10

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

@Mydyvys · 15.12.2008, 14:17

notesEmbeddedObject.FileSize и notesEmbeddedObject.Name

@ozot20 · 15.12.2008, 14:46

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

Код

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

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

@ozot20 0 / 0 / 0 Регистрация: 18.07.2008 Сообщений: 242
		1
	Копирование в Rich Text 30.09.2008, 08:57. Показов 14906. Ответов 8 Метки нет (Все метки) Дорый день! Нужно копировать с одного документа в другой аттачи. Из ричтекста в ричтекст. Тут маленький кусок кода,а именно копирование.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] 0

@morphyus 1 / 1 / 0 Регистрация: 04.08.2006 Сообщений: 2,950
	30.09.2008, 10:27	2
	Сообщение от Azat что в доке-приемнике создано столько полей limcard_lastedit, сколько приаттачилось файлов можете заметить что тоже самое происходит в почте в с полем Body Сообщение от Azat И еще вопрос.Почему аттачи добавляются не подряд в одну строку,как мне надо,а на следующую строку. Перевод на другую строку я делаю AddLine чтото не совсем понял, так как Вам надо? 0

@ozot20 0 / 0 / 0 Регистрация: 18.07.2008 Сообщений: 242
	30.09.2008, 10:34	3
	мне надо чтобы было так, переход после 1) ко 2) делаю вручную AddLine: 1)Сообщение аттач аттач аттач аттач 2)Сообщение аттач аттач аттач аттач а получается так: 1) Сообщение аттач аттач аттач аттач 2)... т.е. аттачи не подряд идут при выполении Call itemkuda.EmbedObject(EMBED_ATTACHMENT, "", Environ("Temp") & "\" & o1.Name) 0

@ozot20 0 / 0 / 0 Регистрация: 18.07.2008 Сообщений: 242
	15.12.2008, 13:30	4
	Может есть у кого дельный совет в решении моей проблемы? 0

@Omh 0 / 0 / 1 Регистрация: 30.06.2007 Сообщений: 2,153
	15.12.2008, 13:36	5
	А что насчёт Код NotesItem.CopyItemToDocument ? 0

@Mydyvys 0 / 0 / 0 Регистрация: 04.12.2004 Сообщений: 3,329
	15.12.2008, 13:45	6
	А можно получить список всех объектов notesRichTextItem.EmbeddedObjects и копировать их в новое поле. Не надо на диск сохранять. 0

@ozot20 0 / 0 / 0 Регистрация: 18.07.2008 Сообщений: 242
	15.12.2008, 14:10	7
	Просто там у меня проверка делается, если такой файл (сравниваю по размеру и названию) существует уже, то он не добавляется. 0

@Mydyvys 0 / 0 / 0 Регистрация: 04.12.2004 Сообщений: 3,329
	15.12.2008, 14:17	8
	notesEmbeddedObject.FileSize и notesEmbeddedObject.Name 0

@ozot20 0 / 0 / 0 Регистрация: 18.07.2008 Сообщений: 242
	15.12.2008, 14:46	9
	Нет, это я уже сделал. Не устраивает меня то, что после этой операции: Код Call itemkuda.EmbedObject(EMBED_ATTACHMENT, "", Environ("Temp") & "\" & o1.Name) Аттач добавляется на новую строку в RT поле 0

Опции темы