Глючит Rtitem.embeddedobjects

  • Автор темы allex
  • Дата начала
A

allex

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

Код:
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

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

Darker

#2
может Variant ему не нравится? NotesRichTextItem попробуй, может он думает, что это простой итем
 
A

allex

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

Forall o In abody.EmbeddedObjects
 

Xalet

Well-known member
08.08.2008
410
0
#4
Это как понимать,в агентах это работает , а в этой процедуре нет, как быть ?
может глупость напишу =) а что если у агента есть права на доступ к полю, а у тех юзверей, у кого запускается процендура нет?
 
A

allex

#5
я есть тот единственный и неповторимый, который может все
 

hosm

* so what *
18.05.2009
2 442
6
#6
а поле точно рт, проверь Type. Можно вместо варианта юзать Notesitem, а после проверки типа завести лишнюю переменную типа NotesRichTextItem
Set rti = abody
да, а есть ли у дока вообще аттачи именно в рт-поле?
 
A

allex

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

Print "abody.Type =" + abody.Type

Для Notesitem нет membera - EmbeddedObjects
 

hosm

* so what *
18.05.2009
2 442
6
#8
а тип на NotesItem не меняли? Для рт NotesItem.Type = 1, там число.
я подредактировала предыдущее сообщение - видать, нечетко пояснила.
Проверь поле и на Nothing, мож, его вообще нет...
 
A

allex

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

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

hosm

* so what *
18.05.2009
2 442
6
#10
выйти и зайти с нужной ноги - хороший метод, для лотуса работает)))