Büroklammerfunktion im uidoc

[Hedwig14]

Hallo !
Ich habe mir eine Schaltfläche zum Anhängen einer Datei im uidoc gebaut (siehe Script)
Ich erhalte folgende Fehlermeldung:  "Vorgabemaske nicht gefunden"

Was mache ich falsch ?


   Dim ws As NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim session As NotesSession
   Dim PDF As NotesEmbeddedObject
   
   Set ws = New NotesUIWorkspace
   Set uidoc = ws.CurrentDocument
   Set doc = uidoc.Document
   
   Set rtitem = New NotesRichTextItem( doc, "tabelle" )
   Set PDF = rtitem.EmbedObject(EMBED_ATTACHMENT,"","s:\340000\341100\341111\test.xls")
   
   Call doc.save(True,False)
   doc.saveoptions = "0"
   Call uidoc.close
   Call ws.EditDocument(True, doc)

[atbits]

Mach was die Fehlermeldung sagt und definiere eine Maske als Vorgabe-Maske und ebenso eine View als Vorgabe-View.

Zumindest früher war das mal ein Problem, seitdem habe ich mir angewöhnt das immer zu tun, daher weiß ich nicht genau, ob das noch immer notwendig ist - scheint dann aber wohl zu sein.

Grüße David

[Hedwig14]

... und wie mache ich das ?

[atbits]

so

[Peter Klett]

Ich denke, das Problem kommt durch das doc.Save, da wird der Name der Maske nicht gespeichert, wenn das Dokument neu ist.

Entweder ergänzt Du doc.Form = "MeineMaske", erstellst das Feld Form in der Maske (berechnet beim Anlegen mit dem Namen der Maske) oder speicherst das uidoc anstelle des doc.