Das Notes Forum

Domino 9 und frühere Versionen => Administration & Userprobleme => Thema gestartet von: HenningC am 11.05.05 - 08:04:45

Titel: extract von EmbeddedObject was kein Attachment ist
Beitrag von: HenningC am 11.05.05 - 08:04:45
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
Titel: Re: extract von EmbeddedObject was kein Attachment ist
Beitrag von: Glombi am 11.05.05 - 09:03:25
Mit CreateObject erstellst Du ein OLE Objekt, kein Attachment.

Andreas
Titel: Re: extract von EmbeddedObject was kein Attachment ist
Beitrag von: Axel am 11.05.05 - 09:06:07
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
Titel: Re: extract von EmbeddedObject was kein Attachment ist
Beitrag von: HenningC am 12.05.05 - 00:40:56
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.