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

[wowa]

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

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


Я что-то себе набросал типа такого:

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 - последний прикрепленный файл должен быть, но к сожалению вроде не так...

 

[Medevic]

Аттачи посмотреть можно так: NotesDocument.EmbeddedObjects
Узнать, к чему прикреплен так: NotesEmbeddedObject.Parent

 

[wowa]

Medevic , ну вот сделал я

Set emoInputAttachment = doc.GetAttachment ( stFileName )
Set notesRichTextItem = emoInputAttachment.Parent

КАк проверить прикреплен ли он к документу?
If notesRichTextItem Is Nothing Then ???????????
или как ???

 

[Medevic]

КАк проверить прикреплен ли он к документу?
If notesRichTextItem Is Nothing Then ???????????
или как ???

Ну да.
Или просто:

If emoInputAttachment.Parent Is Nothing Then

 

[wowa]

Medevic , что-то у меня все файлы is Nothing

 

[Archi2001]

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

 

[Medevic]

что-то у меня все файлы is Nothing

Действительно. Здесь он всегда будет Nothing. Тогда не знаю.

 

[Omh]

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

 

[wowa]

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

А как это кодом сделать?
вот получаю все Аттачменты, вернее их путь (или как надо? )

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

 

[wowa]

Как проверить, данный аттачмент есть уже в RTF ?

 

[Omh]

forall пройтись