Richtext почтой

Тема в разделе "Lotus - Программирование", создана пользователем Ogion7, 18 апр 2007.

  1. Ogion7

    Ogion7 Гость

    День добрый. В документе есть рич текст поле, кликаю по кнопке и высылаю по письмо в которое предварительно переписываю указанный итем. В итеме есть текст и табличка. Текст приходит нормально, а таблицу сантиметров на 5 сдвигает вправо. Вот код

    Код (Text):
    Sub Click(Source As Button)
    Dim ws As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim curdoc As NotesDocument
    Dim rtitem As NotesRichTextItem
    Dim Body As NotesRichTextItem

    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim doc As NotesDocument

    Set db = session.CurrentDatabase
    Set uidoc=ws.CurrentDocument
    Set curdoc=uidoc.Document
    Set rtitem=curdoc.GetFirstItem("Content")

    Set doc = New NotesDocument( db )

    doc.Form = "Memo"

    doc.Subject = "Отчет (" & Cstr(Now) & ")"

    Set Body=New NotesRichTextItem(doc,"Body")
    Call Body.AppendRTItem(rtitem)

    doc.SendTo=curdoc.SendTo(0)
    Call doc.Send( False )
    End Sub
     
Загрузка...

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