Ole-Objekt in Datei speichern?

Hallo,

ich habs nicht probiert, aber hast du mal mit der NotesRichTextItem Klasse gespielt?

Die hat eine Eigenschaft EmbeddedObjects.

Hier ein Beispielcode aus der Hilfe:

Dim doc As NotesDocument
Dim rtitem As Variant
'...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
Call o.ExtractFile( "c:\samples\" & o.Source )
Call o.Remove
Call doc.Save( False, True )
End If
End Forall
End If

Vielleicht geht das auch mit Ole-Objekten.

Gruß
Dirk

P.S. Ich habe nur Notes 6. Ob's auch mit weniger geht weiß ich nicht.

problem ist, du kannst OLE-Objekte nicht einfach so als datei speichern! du musst es mit der anwendung öffnen und dann die anwendung steuern (speichern unter ...).

aber dazu braucht man immer die anwendung!!!

die frage is halt, kann man z. b. aus dem xml des notes dokumentes die datei aus dem ole objekt "reproduzieren".

Hmmm, ok.

also wenn ich das richtig verstanden habe, dann ist die Frage doch: wie bekomme ich die Orginaldatei aus einem OLE-Objekt extrahiert?

Richtig?
Ich fürchte da kann ich dir nicht weiterhelfen.

Gruß
Dirk Mika

genau das ist meine frage!

wobei das wort "originaldatei" ja eigentlich nicht stimmt, den ein objekt wird ja nicht zwangsläufig aus einer datei erstellt.

bin gerade dabei mit der ibm zu dem thema zu kommunizieren. aber ich habe das gefühl das man in mainz, indien und irland den ein oder anderen ahnungslosen studenten zuviel beschäftigt ...