Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Joker am 17.07.03 - 08:57:30

Titel: Funktion EmbedObject
Beitrag von: Joker am 17.07.03 - 08:57:30

Hi,
versuche gerade mir mit der Funktion EmbedObject eine Datei an ein Dokument anhängen. Habe mir dazu ein kleines Script erstellt. Das Script scheint auch irgendwie zu funktionieren, jedoch sehe ich den Anhang im Dokument nicht.
Kann mir da vielleicht jemand weiterhelfen.


Dim ws As NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim note As NotesDocument
Dim session As NotesSession
Dim PDF As NotesEmbeddedObject
   
Set ws = New NotesUIWorkspace
Set uidoc = ws.CurrentDocument
Set note = uidoc.Document
   
' RichTextFeld erzeugen
Set rtitem = New NotesRichTextItem( note, "Body" )
   
Set PDF = rtitem.EmbedObject(EMBED_ATTACHMENT,"","c:\Lotus\lslanguage.pdf")


Gruss
Martin

Titel: Re:Funktion EmbedObject
Beitrag von: Joker am 17.07.03 - 08:58:52

Entschuldigt bitte die üble Farbe. Dachte, es würde besser rüberkommen.

Martin

Titel: Re:Funktion EmbedObject
Beitrag von: Performance am 17.07.03 - 09:19:43

hi Joker

wei üblich bei rtf Feldern.... erst speichern .... dann wird das attachment auch angezeigt

Call note.save(True,False)
note.saveoptions = "0"
Call uidoc.close
Call ws.EditDocument(True, note)


cu

Titel: Re:Funktion EmbedObject
Beitrag von: Don Pasquale am 17.07.03 - 09:32:53

@Performance


Cool, funktioniert einwandfrei ( gerade getestet )

Ich würde gerne genau dieses Skript im WebQueryOpen Ereignis
laufen lassen.

Da bekomme ich aber den Fehler
Error Creating Product Object


irgendeine Idee ?


Ciao

Don Pasquale

Titel: Re:Funktion EmbedObject
Beitrag von: Performance am 17.07.03 - 10:04:43

@Don

im web müsste es gleich sein - ausser du machst kein close mehr, weil das dok im refferer wieder neu geladen wird


cu