Rtf -> Mime

[T1000]

День добрый!
Есть 2 базы. В одной документы с RTF-полем "Body", в другой документы с RTF-полем "FullBody" и галочкой "Store contents as HTML and MIME". Подскажите пожалуйста, как правильно скопировать итем "Body" в "FullBody", чтобы не потерялось форматирование, таблицы и по возможности картинки.
Заранее спасибо.

 

[nvyush]

День добрый!
Есть 2 базы. В одной документы с RTF-полем "Body", в другой документы с RTF-полем "FullBody" и галочкой "Store contents as HTML and MIME". Подскажите пожалуйста, как правильно скопировать итем "Body" в "FullBody", чтобы не потерялось форматирование, таблицы и по возможности картинки.
Заранее спасибо.

Set notesItem = notesItem.CopyItemToDocument( document, newName$ )

 

[T1000]

Set notesItem = notesItem.CopyItemToDocument( document, newName$ )

Ах если бы все было так просто...
Поле "FullBody" мы можем получить только через NotesMIMEEntity класс следующим образом:
[codebox]
Dim doc1 As NotesDocument ' тут поле Body
Dim doc2 As NotesDocument ' тут поле FullBody
Dim rtf_item As NotesRichTextItem
Dim mime_item As NotesMimeEntity
...
ses.ConvertMime=False
...
Set rtf_item=doc1.GetFirstItem("Body")
Set mime_item=doc2.GetMIMEEntity("FullBody")
...
ses.ConvertMime=True
[/codebox]
вот и вопрос в том как из "Body" (RTF) перегнать данные в "FullBody" (MIME)

 

[Omh]

А если перед копированием пошпилить с session.ConvertMIME, не поможет?

 

[T1000]

А если перед копированием пошпилить с session.ConvertMIME, не поможет?

прописано. исходное сообщение на форуме подправил (точнее то, в котором код программы).

 

[amigolinx]

вот и вопрос в том как из "Body" (RTF) перегнать данные в "FullBody" (MIME)

Зачитать содержимое rtf_item в stream, а затем как-то так

Call mime_item.SetContentFromText(stream, "text/html; charset=windows-1251", 1730)