Открыть прикрепленный (атачнутый) к документу файл

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

  1. SkyRanger

    SkyRanger Active Member

    Регистрация:
    17 мар 2007
    Сообщения:
    44
    Симпатии:
    0
    Пишу как описано в хелпе:

    Код (Text):
        Dim ws As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim object As NotesEmbeddedObject
    Dim doc As NotesDocument
    Dim filename As Variant
    Dim rtitem As Variant
    Dim rtitem1 As NotesRichTextItem

    Set uidoc = ws.CurrentDocument

    Set doc = uidoc.Document

    Set rtitem = doc.GetFirstItem( "doc_file" )

    Forall o In rtitem.EmbeddedObjects 
    Call o.Activate(True)  
    End Forall
    Нефига не пашет :(

    Отладка показывает что EmbeddedObjects нема у rtitem

    При этом если использовать rtitem1 так Set rtitem1 = doc.GetFirstItem( "doc_file" ) получаю ошибку что мол типы не совместимы... Хотя в хелпе встречается и такое...

    В общем задача открыть приатаченый файл как по меню "Open"

    Я вообще хотел сделать 1 кнопку для печати, чтобы открылся ворд, вывести на печать и закрыть, а вторая кнопка чтобы тупо открыть документ в Word

    ---

    Странно... Я забыл оказывается прибить поле созданое ручками и он ругался на динамически создаваемое поле, причем какое имя он ему давал науке неизвестно... Вот ведь гад...
     
  2. Hedg

    Hedg Гость

    Что не вяжеться

    Dim rtitem As Variant
    Dim rtitem1 As NotesRichTextItem

    Set rtitem = doc.GetFirstItem( "doc_file" )
     
Загрузка...

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