Domino 9 und frühere Versionen > ND8: Administration & Userprobleme
EmbedObject im Postopen
Hedwig14:
Hallo,
folgendes Script habe ich im Postopen eines Dokumentes eingestellt.
Es soll beim Start des Dokumentes ein Dateianhang in das RT-Feld einstellen.
Leider ist der Dateianhang nicht sichtbar. Eine Fehlermeldung bekomme ich nicht.
Was mache ich denn falsch ?
Sub Postopen(Source As Notesuidocument)
Dim w As New NotesUIWorkspace
Dim s As New NotesSession
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set db = s.CurrentDatabase
Set uidoc = w.CurrentDocument
Set doc = uidoc.Document
Set rtitem = New NotesRichTextItem( doc, "DG_Dateianhang_1" )
Set object = rtitem.EmbedObject( EMBED_ATTACHMENT, "", "c:\GiroPreisÜbersicht.xls")
Call doc.Save(True,True)
Call uidoc.Refresh
Peter Klett:
Im Backend veränderte Richtextitems sind erst nach Schließen und Öffnen des Dokuments sichtbar.
Falls das Dokument bereits existiert, würde ich die Datei im Queryopen anhängen.
Falls das Dokument neu erstellt wird, würde ich das Dokument über eine Schaltfläche erstellen lassen, und darin das Anhängen der Datei vor dem Öffnen des Dokuments durchführen.
ascabg:
Hallo,
Ein Call uidoc.Refresh() sollte hier nicht ausreichen.
Das uidoc muss komplett neu geladen werden.
Stellt sich jedoch die Frage, was soll bei einem neuen Dokument passieren, welches der Anwender letztendlich nicht gespeichert haben moechte.
Andreas
Hedwig14:
das stimmt ! Ich möchte erreichen, dass das Dokument mit dem Dateianhang angelegt wird. Möglichst ohne speichern. Wenn der User das Dokument abbricht habe ich sonst Datenmüll produziert.
Aber gibt es eine Möglichkeit den Dateianhang beim Erstellen des Dok. mitzugeben ?
Oder bin ich auf dem Holzweg ?
Hedwig14:
Hallo Peter,
der Dateianhang ist nach dem Speichern im Dokument vorhanden. Aber das steht ganz unten und nicht im RT-Feld ????
Navigation
[0] Themen-Index
[#] Nächste Seite
Zur normalen Ansicht wechseln