Embeddedobject в файл

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

 

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

 

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

 

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

Код (Text):

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

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

 

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

 

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

 

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