Помогите вспомнить!

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

  1. sanch

    sanch Well-Known Member

    Регистрация:
    17 июл 2006
    Сообщения:
    216
    Симпатии:
    0
    Как программно приаттачить что - то к документу?.Спасибо!
     
  2. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Для: sanch
    Вам в хэлп
    Код (Text):
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Dim rtitem As NotesRichTextItem
    Dim object As NotesEmbeddedObject
    Set db = session.CurrentDatabase
    Set doc = New NotesDocument( db )
    Set rtitem = New NotesRichTextItem( doc, "Body" )
    Set object = rtitem.EmbedObject _
    ( EMBED_ATTACHMENT, "", "c:\jim.sam")
    doc.Form = "Main Topic"
    doc.Subject = "Here's Jim's document, as an attachment"
    Call doc.Save( True, True )
     
  3. sanch

    sanch Well-Known Member

    Регистрация:
    17 июл 2006
    Сообщения:
    216
    Симпатии:
    0
    О точно! спасибо!
     
Загрузка...

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