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

@D!m@m · Регистрация: 29.07.2007

Author24 — интернет-сервис помощи студентам

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

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

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

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

@vytytshystvo · 09.08.2007, 07:26

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

Set item = doc.GetFirstItem( "Certificate" )

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

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

@Mydyvys · 09.08.2007, 09:34

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

@D!m@m · 11.08.2007, 22:20

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


<span class="vbquote">(Medevic @ 10:08:2007, 07:21 )</span>Dim rtitem As NotesRichTextItem
...
If Isempty(rtitem.EmbeddedObjects) Then пусто
[snapback]74953" rel="nofollow" target="_blank[/snapback]?[/quote]Это было первое, что я попробовал :lol: Увы, почему-то не сработало, хотя по всей логике должно было...

Помогло только вот это:

<span class="vbquote">(velitchestvo @ 10:08:2007, 05:13 )</span>Dim item As Variant

Set item = doc.GetFirstItem( "Certificate" )

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

<иначе как ты сам понимае ошибка, но без неё никак в этом случае>
[snapback]74947" rel="nofollow" target="_blank[/snapback]?[/quote]

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

@D!m@m 0 / 0 / 0 Регистрация: 29.07.2007 Сообщений: 383
		1
	Как узнать, что в Richtextе есть приаттаченные файлы? 08.08.2007, 20:44. Показов 12491. Ответов 3 Метки нет (Все метки) Доброго времени суток! Подскажите, пожалуйста, как можно на LotusScript определить, что в RichTextItem лежит файл? Имя файла заранее неизвестно. Метод FindFirstElement класса NotesRichTextNavigator почему-то ничего не находит... Возвращает False даже в тех ричтекстовых полях, где есть аттачменты... Заранее спасибо за ответ! 0

@vytytshystvo 0 / 0 / 0 Регистрация: 13.05.2006 Сообщений: 27
	09.08.2007, 07:26	2
	Лови кодец: Dim item As Variant Set item = doc.GetFirstItem( "Certificate" ) On Error Goto errhandler On Error Resume Next If (item.Embeddedobjects(0) Is Nothyng) Then errhandler: <код если файла прикреплённого нет> <иначе как ты сам понимае ошибка, но без неё никак в этом случае> 0

@Mydyvys 0 / 0 / 0 Регистрация: 04.12.2004 Сообщений: 3,329
	09.08.2007, 09:34	3
	Dim rtitem As NotesRichTextItem ... If Isempty(rtitem.EmbeddedObjects) Then пусто 0

@D!m@m 0 / 0 / 0 Регистрация: 29.07.2007 Сообщений: 383
	11.08.2007, 22:20	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 Nothyng) Then errhandler: <код если файла прикреплённого нет> <иначе как ты сам понимае ошибка, но без неё никак в этом случае> [snapback]74947" rel="nofollow" target="_blank[/snapback]?[/quote] Еще раз огромное всем спасибо! 0