1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Richtext почтой

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

  1. Ogion7

    Ogion7 Гость

    Репутация:
    0
    День добрый. В документе есть рич текст поле, кликаю по кнопке и высылаю по письмо в которое предварительно переписываю указанный итем. В итеме есть текст и табличка. Текст приходит нормально, а таблицу сантиметров на 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
     
Загрузка...

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