Hi,
das Sript könnte so aussehen.
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Dim newdoc As NotesDocument
Dim uidoc As NotesUIDocument
Set db = session.CurrentDatabase
If BedingungErfüllt Then
Set newdoc = New NotesDocument(db) 'Neues Dokument im Backend anlegen
newdoc.Form = "Name der Maske" 'Dokument mit einer Maske verknüpfen
newdoc.Feld = "Feldwert" 'Wert eines Feldes setzen
Call workspace.EditDocument(True, newdoc) 'Dokument im Editmodus anzeigen.
Else
Messagebox "Es wird kein Dokument angelegt."
End If
Ich habs auf die Schnelle aus dem Kopf gemacht und nicht getestet, sollte aber so funktionieren. Du musst es noch ein bißchen deinen Gegebenheiten (Maskenname, Feldname, Bedingung) anpassen.
Ich hoffe das hilft dir weiter.
Axel