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

  • Автор темы D!m@n
  • Дата начала
Статус
Закрыто для дальнейших ответов.
D

D!m@n

Гость
#1
Доброго времени суток!

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

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

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

velitchestvo

Гость
#2
Лови кодец:
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

Что это ? :)
Lotus team
10.12.2004
3 346
2
#3
Dim rtitem As NotesRichTextItem
...
If Isempty(rtitem.EmbeddedObjects) Then пусто
 
D

D!m@n

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

<!--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]

Еще раз огромное всем спасибо!
 
Статус
Закрыто для дальнейших ответов.