OK, so funktioniert es und ich kann die Antwort direkt aus dem erstellten Dokument erstellen:
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set uidoc = workspace.ComposeDocument ( "", "", "Ereignis" )
Set doc = uidoc.Document
doc.Feld1 = "1"
...
Call doc.ComputeWithForm( False, False )
End Sub
Gruß
Fritz
Bin einen andren Weg gegangen.
DANKE!
Sorry, aber ich denke das gibt es erst ab R6.
Bei mir sagt er, "Unbekanntes Schlüsselwort [ComposeWithReference]"
P.S. Bin auch im falschen Forum-Bereich. Ich arbeite mit R5.
Das tue ich doch in meiner Schaltfläche.
@If(@Command([FileSave]);@True;@Return(""));
@Command([Compose]; "";"Maßnahme")
Habe ich auch ins Script eingebaut, funktioniert aber nicht.
Tach zusammen,
bin neu hier und habe folgendes Problem:
Ich erstelle ein Dokument aus einer Ansicht mit:
Sub Click(Source As Button)
Dim ws As New notesuiworkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As notesdocumentcollection
Dim newdoc As NotesDocument
Dim uidoc As notesuidocument
Set db = session.CurrentDatabase
Set newdoc = db.createdocument
With newdoc
.form = "Ereignis"
.Feld1 = "1"
......
End With
Set uidoc = ws.EditDocument( True, newdoc)
End Sub
Das Dokumet öffnet und ich kann es bearbeiten.
Im Dokument befindet sich nun eine Schaltfläche, aus der ich ein Antwortdokument erstellen kann.
Formel
@If(@Command([FileSave]);@True;@Return(""));
@Command([Compose]; "";"Maßnahme")
Es erscheint der Fehler:
"Kein Dokument ausgewählt. Wählen Sie ein Dokument zur Bearbeitung.".
Was mache ich falsch? Gehe ich raus und wieder rein, funktioniert es.
DANKE für die Hilfe
Ein verzweifelter Fritz
