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

wowa

Well-known member
01.02.2007
845
0
#1
Можно определить, файл прикреплен к доку или к 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

Что это ? :)
Lotus team
10.12.2004
3 346
1
#2
Аттачи посмотреть можно так: NotesDocument.EmbeddedObjects
Узнать, к чему прикреплен так: NotesEmbeddedObject.Parent
 

wowa

Well-known member
01.02.2007
845
0
#3
Medevic , ну вот сделал я
Код:
Set emoInputAttachment = doc.GetAttachment ( stFileName )
Set notesRichTextItem = emoInputAttachment.Parent
КАк проверить прикреплен ли он к документу?
If notesRichTextItem Is Nothing Then ???????????
или как ???
 
A

Archi2001

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

Omh

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

wowa

Well-known member
01.02.2007
845
0
#9
Можно сделать так:
пройти по всем $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