Rtf -> Mime

Тема в разделе "Lotus - Программирование", создана пользователем T1000, 3 ноя 2009.

  1. T1000

    T1000 Гость

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

    nvyush Lotus team
    Lotus team

    Регистрация:
    22 апр 2009
    Сообщения:
    2.317
    Симпатии:
    0
    Set notesItem = notesItem.CopyItemToDocument( document, newName$ )
     
  3. T1000

    T1000 Гость

    Ах если бы все было так просто...
    Поле "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)
     
  4. Omh

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    А если перед копированием пошпилить с session.ConvertMIME, не поможет?
     
  5. T1000

    T1000 Гость

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

    amigolinx Гость

    Зачитать содержимое rtf_item в stream, а затем как-то так
    Код (Text):
    Call mime_item.SetContentFromText(stream, "text/html; charset=windows-1251", 1730)
     
Загрузка...

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