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

Тема в разделе "Lotus - Программирование", создана пользователем D!m@n, 9 авг 2007.

Статус темы:
Закрыта.
  1. D!m@n

    D!m@n Гость

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

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

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

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

    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:
    <код если файла прикреплённого нет>

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

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Dim rtitem As NotesRichTextItem
    ...
    If Isempty(rtitem.EmbeddedObjects) Then пусто
     
  4. D!m@n

    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]

    Еще раз огромное всем спасибо!
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей