extract von EmbeddedObject was kein Attachment ist

[HenningC]

Hallo zusammen,
ich nutze diese Forum schon seit vielen Wochen, habe bislang allein durch die Suche immer eine Loesung gefunden.
Nun scheitetere ich aber ein einer wahrscheinlich banalen Sache.
Im postopen-Ereignis einer Maske erstelle ich ein EmbeddedObject (Source ist NotesUIDocument):
Call Source.GotoField("EmbeddedDocument")
Call Source.CreateObject("Test _ Certificate","","C:\temp\lastreport.doc")

Dieses kann ich aber spaeter nicht extrahieren, da es nicht vom Typ 1454 ist (kein Attachment).  Habe bereits die Hilfe bemueht, aber irgendwie funzt das nicht, wenn ich den Typ aendere.

Vielen Dank schonmal im Voraus!
Gruss Henning

[Glombi]

Mit CreateObject erstellst Du ein OLE Objekt, kein Attachment.

Andreas

[Axel]

Hi,

das kann auch so nicht gehen. Du erstellst ein Objekt und kein Attachment. Andreas hat das ja auch schon geschrieben.

Zum Erstellen eines Attachments schau die mal die Methode EmbedObjects aus der NotesRichTextItem-Klasse an.


Axel

[HenningC]

Hi,
danke erstmal. Sorry, dass ich so spaet antworte. Arbeite zur Zeit in Melbourne, daher die Zeitverzoegerung. Okay, eigentlich will ich an der bestehenden Datenbank nicht viel aendern.
Habe das jetzt so geloest:

Set doc=docui.Document
Set rtitem = doc.GetFirstItem( "EmbeddedDocument" )
Set Documents=WordApp.Documents
 If rtitem.type = RICHTEXT Then
   Set object = rtitem.getembeddedobject("Test Certificate")
      If Not(object Is Nothing) Then       
         Set handle = object.activate(True)
         Call handle.SaveAs("c:\temp\temp.doc")   
      End If
 End If

Henning

PS: Das war ja einfacher als gedacht, vielen Dank fuer Eure Mitarbeit.