Hi Horst!
Du musst erst eine Maske mit deinen Feldern zeichnen, die du dann in der Dialogbox anzeigen möchtest.
Dann kannst du mit diesem Script die Dokumente erstellen...
Dim ws As New NotesUIWorkspace
Dim session As New Notessession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set doc = db.CreateDocument()
doc.Form = "mRekl"
'Weitere Vorgabewerte befüllen...
Dim resp As Integer
nochmal:
resp = ws.DialogBox( "Name der Dialogboxmaske", True, True, False, False, False, False, "Überschrift", doc, True, False)
If resp = False Then Exit Sub
If doc.Mussfeld(0) = "" Then 'Hier prüfst du ab ob die Felder in der Dialogbox befüllt wurden
Messagebox "Du musst noch das Mussfeld befüllen !", 16, "Titel"
Goto nochmal
End If
Call doc.ComputeWithForm(True,True)
Call ws.EditDocument(True, doc, False)
HTH