Dim workspace As New NotesUIWorkspace
Dim doc As NotesDocument
Set doc = source.Document
workspace.DialogBox "Zusatzdokument", True, True, True, True, True, _
True, "", doc,True,True
Continue = False
eben nicht das sind nur 2 Felder drin ::)Und keine Scripts in QueryOpen, PostOpen ?