Можно определить, файл прикреплен к доку или к Rtf?

Тема в разделе "Lotus - Программирование", создана пользователем wowa, 18 апр 2008.

  1. wowa

    wowa Well-Known Member

    Регистрация:
    1 фев 2007
    Сообщения:
    842
    Симпатии:
    0
    Можно определить, файл прикреплен к доку или к RTF?

    вообщем проблема такова...
    Есть один файл, который прикреплен к RTF, и еще один, который прикреплен к документу
    Можно определить файл, который прикреплен к документу?
    Задача немного упрощается тем, что файл, который прикреплен к документу, был прикреплен последним!!


    Я что-то себе набросал типа такого:
    Код (Text):
    Set vNewAttach = Nothing
    Forall item In doc.Items
    If Ucase( item.Name ) = "$FILE" Then

    If vNewAttach Is Nothing Then
    Set vNewAttach = item
    Else
    If ( Cdbl(item.LastModified) > Cdbl(vNewAttach.LastModified) ) Then
    Delete vNewAttach
    Set vNewAttach = item
    End If
    End If


    End If
    End Forall
    В итоге, vNewAttach - последний прикрепленный файл должен быть, но к сожалению вроде не так...
     
  2. Medevic

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Аттачи посмотреть можно так: NotesDocument.EmbeddedObjects
    Узнать, к чему прикреплен так: NotesEmbeddedObject.Parent
     
  3. wowa

    wowa Well-Known Member

    Регистрация:
    1 фев 2007
    Сообщения:
    842
    Симпатии:
    0
    Medevic , ну вот сделал я
    Код (Text):
    Set emoInputAttachment = doc.GetAttachment ( stFileName )
    Set notesRichTextItem = emoInputAttachment.Parent
    КАк проверить прикреплен ли он к документу?
    If notesRichTextItem Is Nothing Then ???????????
    или как ???
     
  4. Medevic

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Ну да.
    Или просто:
    Код (Text):
    If emoInputAttachment.Parent Is Nothing Then
     
  5. wowa

    wowa Well-Known Member

    Регистрация:
    1 фев 2007
    Сообщения:
    842
    Симпатии:
    0
    Medevic , что-то у меня все файлы is Nothing
     
  6. Archi2001

    Archi2001 Гость

    ... я проверял черз "китай" :rolleyes: :
    делал на форме вычисл. скрытое поле:
    @If(@Attachments(@True)!=0;"1";"") ...
    далее, значение поля можно использовать и в скриптах ...
     
  7. Medevic

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Действительно. Здесь он всегда будет Nothing. Тогда не знаю.
     
  8. Omh

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    Можно сделать так:
    пройти по всем $File и получить ВСЕ аттачменты.
    Потом взять интересующий RT и, проверть на IsArray его .EmbeddedObjects.
    Это и будут аттачменты в RT.
    Все остальные либо у документа, либо в других RT.
     
  9. wowa

    wowa Well-Known Member

    Регистрация:
    1 фев 2007
    Сообщения:
    842
    Симпатии:
    0
    А как это кодом сделать?
    вот получаю все Аттачменты, вернее их путь (или как надо? )
    Код (Text):
    Forall item In doc.Items

    If Ucase( item.Name ) = "$FILE" Then

    stFileName = item.Values(0)

    Set emoInputAttachment = doc.GetAttachment ( stFileName )
    stFilePath = stTempDirectory & "\" & stFileName

    Redim Preserve ausrListFileName( i )
    ausrListFileName( i ) = stFilePath
    i = i + 1
     
  10. wowa

    wowa Well-Known Member

    Регистрация:
    1 фев 2007
    Сообщения:
    842
    Симпатии:
    0
    Как проверить, данный аттачмент есть уже в RTF ?
     
  11. Omh

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    forall пройтись
     
Загрузка...

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