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

@wowo · Регистрация: 03.02.2007

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

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

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

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

Код

Set vNewAttach = Nothyng
Forall item In doc.Items
If Ucase( item.Name ) = "$FILE" Then

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

@Mydyvys · 17.04.2008, 13:25

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

@wowo · 17.04.2008, 14:48

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

Код

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

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

@Mydyvys · 17.04.2008, 14:54

Сообщение от wowa

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

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

Код

If emoInputAttachment.Parent Is Nothyng Then

@wowo · 17.04.2008, 15:05

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

@orshy2001 · 17.04.2008, 15:18

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

@Mydyvys · 17.04.2008, 15:35

Сообщение от wowa

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

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

@Omh · 17.04.2008, 15:46

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

@wowo · 28.04.2008, 15:09

Сообщение от Omh

Можно сделать так:
пройти по всем $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

Redym Preserve ausrListFileName( i )
ausrListFileName( i ) = stFilePath
i = i + 1

@wowo · 28.04.2008, 17:46

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

@Omh · 28.04.2008, 18:15

forall пройтись

@wowo 0 / 0 / 0 Регистрация: 03.02.2007 Сообщений: 821
	28.04.2008, 17:46	10
	Как проверить, данный аттачмент есть уже в RTF ? 0

@Omh 0 / 0 / 1 Регистрация: 30.06.2007 Сообщений: 2,153
	28.04.2008, 18:15	11
	forall пройтись 0

@Mydyvys 0 / 0 / 0 Регистрация: 04.12.2004 Сообщений: 3,329
	17.04.2008, 13:25	2
	Аттачи посмотреть можно так: NotesDocument.EmbeddedObjects Узнать, к чему прикреплен так: NotesEmbeddedObject.Parent 0

@wowo 0 / 0 / 0 Регистрация: 03.02.2007 Сообщений: 821
	17.04.2008, 14:48	3
	Medevic , ну вот сделал я Код Set emoInputAttachment = doc.GetAttachment ( stFileName ) Set notesRichTextItem = emoInputAttachment.Parent КАк проверить прикреплен ли он к документу? If notesRichTextItem Is Nothyng Then ??????????? или как ??? 0

@Mydyvys 0 / 0 / 0 Регистрация: 04.12.2004 Сообщений: 3,329
	17.04.2008, 14:54	4
	Сообщение от wowa КАк проверить прикреплен ли он к документу? If notesRichTextItem Is Nothyng Then ??????????? или как ??? Ну да. Или просто: Код If emoInputAttachment.Parent Is Nothyng Then 0

@wowo 0 / 0 / 0 Регистрация: 03.02.2007 Сообщений: 821
	17.04.2008, 15:05	5
	Medevic , что-то у меня все файлы is Nothyng 0

@orshy2001 0 / 0 / 0 Регистрация: 08.03.2008 Сообщений: 45
	17.04.2008, 15:18	6
	... я проверял черз "китай" : делал на форме вычисл. скрытое поле: @If(@Attachments(@True)!=0;"1";"") ... далее, значение поля можно использовать и в скриптах ... 0

@Mydyvys 0 / 0 / 0 Регистрация: 04.12.2004 Сообщений: 3,329
	17.04.2008, 15:35	7
	Сообщение от wowa что-то у меня все файлы is Nothyng Действительно. Здесь он всегда будет Nothyng. Тогда не знаю. 0

@Omh 0 / 0 / 1 Регистрация: 30.06.2007 Сообщений: 2,153
	17.04.2008, 15:46	8
	Можно сделать так: пройти по всем $File и получить ВСЕ аттачменты. Потом взять интересующий RT и, проверть на IsArray его .EmbeddedObjects. Это и будут аттачменты в RT. Все остальные либо у документа, либо в других RT. 0

@wowo 0 / 0 / 0 Регистрация: 03.02.2007 Сообщений: 821
	28.04.2008, 15:09	9
	Сообщение от Omh Можно сделать так: пройти по всем $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 Redym Preserve ausrListFileName( i ) ausrListFileName( i ) = stFilePath i = i + 1 0