Hallo Leute,
ich hänge folgendermaßen eine Datei ein ein RTF Feld:
Dim session As New NotesSession
Dim db As NotesDatabase
Dim uiworksp As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set db = session.CurrentDatabase
Set doc = New NotesDocument(db)
Set uidoc = uiworksp.CurrentDocument
Set rtitem = New NotesRichTextItem(doc, "Anhang")
Set object = rtitem.EmbedObject (EMBED_ATTACHMENT, "", "c:\test.txt")
Es folgt im code,
Call doc.Save( True, True )
Call uiworksp.ReloadWindow
Call uidoc.Refresh(True)
Call rtitem.Update
Call uidoc.Reload
Was mache ich falsch?
Wie gesagt, ich würde die angehängte Datei gerne direkt nach dem Anhängen sehen und nicht erst nach erneutem Öffnen des Dokuments...
Vielen Dank schonmal für Tipps sowas großes kanns ja nicht mehr sein an dem ich hänge oder? ;)
Bis dann.