Domino 9 und frühere Versionen > Entwicklung

Funktion EmbedObject

(1/1)

Joker:
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

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

Martin

Performance:
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

Don Pasquale:
@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

Performance:
@Don

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


cu

Navigation

[0] Themen-Index