Das sollte auch gehen :
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
'Dim uidoc As NotesUIDocument
'Dim eigener As String
'Dim server As String
'Set uidoc = ws.CurrentDocument
eigener = session.GetEnvironmentString ("MailFile", True)
server = session.GetEnvironmentString ("MailServer", True)
Set db = New Notesdatabase (server, eigener)
Set doc = db.createDocument
doc.Form = "Memo"
doc.Subject = "Feedback"
doc.SendTo = "Mailadresse"
Call ws.EditDocument (True, doc)
End Sub
Silke is back