Autor Thema: Funktion EmbedObject  (Gelesen 1414 mal)

Offline Joker

  • Aktives Mitglied
  • ***
  • Beiträge: 109
  • Geschlecht: Männlich
  • Let`s start !!
Funktion EmbedObject
« 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
« Letzte Änderung: 17.07.03 - 09:28:24 von Don Pasquale »

Offline Joker

  • Aktives Mitglied
  • ***
  • Beiträge: 109
  • Geschlecht: Männlich
  • Let`s start !!
Re:Funktion EmbedObject
« Antwort #1 am: 17.07.03 - 08:58:52 »
Entschuldigt bitte die üble Farbe. Dachte, es würde besser rüberkommen.

Martin

Offline Performance

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.096
  • Geschlecht: Männlich
  • I love YaBB 1G - SP1!
Re:Funktion EmbedObject
« Antwort #2 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

Wir können alles außer hochdeutsch !

Alles ist möglich, es ist nur eine Frage der Zeit oder des Geldes!

Offline Don Pasquale

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.390
  • Geschlecht: Männlich
  • Don Pasquale
    • Auf Verlorenem Posten
Re:Funktion EmbedObject
« Antwort #3 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

Offline Performance

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.096
  • Geschlecht: Männlich
  • I love YaBB 1G - SP1!
Re:Funktion EmbedObject
« Antwort #4 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
Wir können alles außer hochdeutsch !

Alles ist möglich, es ist nur eine Frage der Zeit oder des Geldes!

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz