Глючит Rtitem.embeddedobjects

[allex]

Есть стандартная процедура по выдергиванию имен файлов из 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

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

 

[Darker]

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

 

[allex]

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

Forall o In abody.EmbeddedObjects

 

[Xalet]

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

может глупость напишу =) а что если у агента есть права на доступ к полю, а у тех юзверей, у кого запускается процендура нет?

 

[allex]

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

 

[hosm]

а поле точно рт, проверь Type. Можно вместо варианта юзать Notesitem, а после проверки типа завести лишнюю переменную типа NotesRichTextItem
Set rti = abody
да, а есть ли у дока вообще аттачи именно в рт-поле?

 

[allex]

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

Print "abody.Type =" + abody.Type

Для Notesitem нет membera - EmbeddedObjects

 

[hosm]

а тип на NotesItem не меняли? Для рт NotesItem.Type = 1, там число.
я подредактировала предыдущее сообщение - видать, нечетко пояснила.
Проверь поле и на Nothing, мож, его вообще нет...

 

[allex]

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

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

 

[hosm]

выйти и зайти с нужной ноги - хороший метод, для лотуса работает)))