Richtext почтой

  • Автор темы Ogion7
  • Дата начала
O

Ogion7

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

Код:
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