'Auslesen des EmbeddedObject und speichern in einem Array Set docZ52EWDK = docCollectionZ52EWDK.GetNthDocument(i) Set rtAnhang = New NotesRichTextItem( docZ52EWDK, "body" ) strAttachment = docZ52EWDK.~$FILE(0) Set eoAnhang = rtAnhang.GetEmbeddedObject( strAttachment ) Set aryItemsAnhang( i ) = eoAnhang 'Versuch des Schreibens ;) Set eoAnhang = aryItemsAnhang( i ) docGUIHilfe.body = eoAnhang 'Läuft beides in einer Schleife