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
