Как узнать, что в Richtext'е есть приаттаченные файлы?

[D!m@n]

Доброго времени суток!

Подскажите, пожалуйста, как можно на LotusScript определить, что в RichTextItem лежит файл?
Имя файла заранее неизвестно.

Метод FindFirstElement класса NotesRichTextNavigator почему-то ничего не находит... Возвращает False даже в тех ричтекстовых полях, где есть аттачменты...

Заранее спасибо за ответ!

 

[velitchestvo]

Лови кодец:
Dim item As Variant

Set item = doc.GetFirstItem( "Certificate" )

On Error Goto errhandler
On Error Resume Next
If (item.Embeddedobjects(0) Is Nothing) Then
errhandler:
<код если файла прикреплённого нет>

<иначе как ты сам понимае ошибка, но без неё никак в этом случае>

 

[Medevic]

Dim rtitem As NotesRichTextItem
...
If Isempty(rtitem.EmbeddedObjects) Then пусто

 

[D!m@n]

Ребят, спасибо Вам огромное за помощь!

<!--QuoteBegin-Medevic+10:08:2007, 07:21 -->
<span class="vbquote">(Medevic @ 10:08:2007, 07:21 )</span><!--QuoteEBegin-->Dim rtitem As NotesRichTextItem
...
If Isempty(rtitem.EmbeddedObjects) Then пусто

[snapback]74953" rel="nofollow" target="_blank[/snapback]​

[/quote]Это было первое, что я попробовал :lol: Увы, почему-то не сработало, хотя по всей логике должно было...

Помогло только вот это:
<!--QuoteBegin-velitchestvo+10:08:2007, 05:13 -->
<span class="vbquote">(velitchestvo @ 10:08:2007, 05:13 )</span><!--QuoteEBegin-->Dim item As Variant

Set item = doc.GetFirstItem( "Certificate" )

On Error Goto errhandler
On Error Resume Next
If (item.Embeddedobjects(0) Is Nothing) Then
errhandler:
<код если файла прикреплённого нет>

<иначе как ты сам понимае ошибка, но без неё никак в этом случае>

[snapback]74947" rel="nofollow" target="_blank[/snapback]​

[/quote]

Еще раз огромное всем спасибо!