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

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

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

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

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

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

  1. sanch

    sanch Well-Known Member

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

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

    Репутация:
    0
    Регистрация:
    7 авг 2006
    Сообщения:
    3.915
    Симпатии:
    1
    Для: sanch
    Вам в хэлп
    Код:
    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

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

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