Глючит Rtitem.embeddedobjects

Тема в разделе "Lotus - Программирование", создана пользователем allex, 22 апр 2010.

  1. allex

    allex Гость

    Есть стандартная процедура по выдергиванию имен файлов из RT поля

    Код (LotusScript):
    Dim abody As Variant
    Set abody = cdoc.GetFirstItem( "Info" )
    Forall o In abody.EmbeddedObjects
    If ( o.Type = EMBED_ATTACHMENT ) Then
    flink = flink + "<a href=http://" + host + "/" + dbase + "................" target =""_blank""> "+ o.Source+" </a>" + "&nbsp"+"<p>"
    End If
    End Forall
    С недавних пор, тобишь сегодня, начал говорить что EmbeddedObjects не есть member для abody

    Это как понимать,в агентах это работает , а в этой процедуре нет, как быть ?
     
  2. Darker

    Darker Гость

    может Variant ему не нравится? NotesRichTextItem попробуй, может он думает, что это простой итем
     
  3. allex

    allex Гость

    Type Mistmach на вот этой строке

    Forall o In abody.EmbeddedObjects
     
  4. Xalet

    Xalet Well-Known Member

    Регистрация:
    8 авг 2008
    Сообщения:
    410
    Симпатии:
    0
    может глупость напишу =) а что если у агента есть права на доступ к полю, а у тех юзверей, у кого запускается процендура нет?
     
  5. allex

    allex Гость

    я есть тот единственный и неповторимый, который может все
     
  6. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    а поле точно рт, проверь Type. Можно вместо варианта юзать Notesitem, а после проверки типа завести лишнюю переменную типа NotesRichTextItem
    Set rti = abody
    да, а есть ли у дока вообще аттачи именно в рт-поле?
     
  7. allex

    allex Гость

    Type Mistmach на вот этой строке

    Print "abody.Type =" + abody.Type

    Для Notesitem нет membera - EmbeddedObjects
     
  8. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    а тип на NotesItem не меняли? Для рт NotesItem.Type = 1, там число.
    я подредактировала предыдущее сообщение - видать, нечетко пояснила.
    Проверь поле и на Nothing, мож, его вообще нет...
     
  9. allex

    allex Гость

    Чудны дела .... перегрузил клиента и поменял на NotesRichTextItem
    Все заработало...

    Да кстати это все относилось к Lotus 8.5.1
     
  10. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    выйти и зайти с нужной ноги - хороший метод, для лотуса работает)))
     
Загрузка...
Похожие Темы - Глючит Rtitem embeddedobjects
  1. Zeka
    Ответов:
    0
    Просмотров:
    1.401
  2. Mikle77
    Ответов:
    4
    Просмотров:
    2.504
  3. morpheus
    Ответов:
    0
    Просмотров:
    2.493
  4. Gamlet
    Ответов:
    1
    Просмотров:
    2.903
  5. maliy
    Ответов:
    15
    Просмотров:
    5.725

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