Sub Click(Source As Button) Dim session As New NotesSession Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Call session.SetEnvironmentVar( "Leer","leer" ) Set uidoc = workspace.ComposeDocument ( "", "", "Beanstandungen_neu") End Sub