EmbeddedObject (Array)

[valheru]

Hallo,
ich habe folgende Zeilen in LS:
...
   Dim embeddedobject As NotesEmbeddedObject    
   Set embeddedobject = currentdoc.EmbeddedObjects(0)

Currentdoc ist ein NotesDocument
Bei der unteren Zeile bekomme ich einen Fehler "Variant does not contain a container."
Dabei enthält das Dokument ein eingebettetes Objekt. Und was der Variant sein soll, versteht ich auch nicht!
Vielen Dank für Eure Hilfe, valheru.

[Glombi]

Hi,
Du darfst nicht die Methode der NotesDocument Klasse verwenden, sondern musst die Methode der Klassen NotesRichTextItem verwenden.

Also:

... set doc....

Dim rtitem As Variant
Set rtitem = doc.GetFirstItem( "Body" )
Set embeddedobject = rtitem.EmbeddedObjects(0)

Dazu aus der Notes Designer Hilfe zu EmbeddedObjects in der Klasse NotesDocument:
Unlike the EmbeddedObjects property in NotesRichTextItem, this property does not include file attachments or OLE/1 objects created in Notes Release 3.


Andreas

[ata]

... kann es sein, daß das Objekt eben erst im Dokument abgelegt wurde und das Doc noch nicht gespeichert wurde...

ata

[koehlerbv]

Auch hier wieder die Frage: Was willst Du eigentlich
Wir stochern hier herum, Glombi und ata haben richtige Hinweise gegeben, die Dir aber eventuell gar nicht weiter helfen - wir wissen ja nicht, was Du mit welchen EmbeddedObjects(-Typen) anfangen willst.

Du wirst sehen: Genaue Fragestellung - saubere Antwort.

Ciao,
Bernhard