Embeddedobject в файл

[Guest]

Как сохранить в файл внедренный объект (не attached, а именно embedded)? ExtractFile работает только для прикрепленных файлов.
В FAQ искал - не нашел, буду благодарен за ответ или ссылку.

 

[Ronchik]

Для: Смирнов А.Ю.
в хелпе NotesEmbeddedObject class

 

[Guest]

Для: Смирнов А.Ю.
в хелпе NotesEmbeddedObject class

Ей богу, весь хелп перерыл, не нашел, ткните носом, или сюда скопируйте.

 

[Ronchik]

Для: Смирнов А.Ю.

Dim doc As NotesDocument
Dim rtitem As Variant
Dim fileCount As Integer
Const MAX = 100000
fileCount = 0	
'...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) _
And ( o.FileSize > MAX ) Then
fileCount = fileCount + 1
Call o.ExtractFile _
( "c:\reports\newfile" & Cstr(fileCount) )
Call o.Remove
Call doc.Save( True, True )
End If
End Forall
End If

пример из хелпа

 

[Guest]

Либо я плохо задал вопрос, либо Вы невнимательно прочитали.
Attachment сохраняется без проблем, мне же нужно EMBED_OBJECT сохранить в файл. Это возможно, не активизируя его?

 

[morpheus]

Для: Смирнов А.Ю.
Всё зависит от обьекта . Эсли это не файл то как же Вы его сохраните на диск?

 

[Guest]

Для: Смирнов А.Ю.
Всё зависит от обьекта . Эсли это не файл то как же Вы его сохраните на диск?

Пока он не сохранен на диск - он не может быть файлом. Но двоичные данные в нем есть, вот их мне и нужно вытащить, не активизируя сам объект, и на диск сохранить, а еще лучше в Stream.
Для информации - объект Imaging.Document (tif)

 

[morpheus]

<!--QuoteBegin-Смирнов А.Ю.+30:07:2007, 12:15 -->
<span class="vbquote">(Смирнов А.Ю. @ 30:07:2007, 12:15 )</span><!--QuoteEBegin-->Но двоичные данные в нем есть, вот их мне и нужно вытащить

[snapback]73761" rel="nofollow" target="_blank[/snapback]​

[/quote]


To get: Set handleV = notesEmbeddedObject.Object
Read-only. If an embedded object has been loaded into memory, returns the OLE handle (IDispatch handle). If the OLE object supports OLE Automation, you can invoke the methods and properties of the object using the handle.

Видимо по другому никак

 

[Guest]

To get: Set handleV = notesEmbeddedObject.Object
Read-only. If an embedded object has been loaded into memory, returns the OLE handle (IDispatch handle). If the OLE object supports OLE Automation, you can invoke the methods and properties of the object using the handle.

Видимо по другому никак

Всем спасибо.