Notes Programmierung-Schaltfläche: Antwort mit Protokoll

[lux in tenebris]

Hallo,

habe ein Problem.
Beschreibung:
Eine Schltfläche soll aus dem Forum eine Mail mit Protokoll direkt an den Verfasser senden:
Wenn ich die Schaltfläche in die Memomaske einbaue, funktioniert es. Nur aus dem Forum heraus leider nicht. Dann habe ich die Meldung:
Maske nicht gefunden: Memo.

Hier mein Script:

Sub Click(Source As Button)
Dim ses As NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim docMemo As NotesDocument
Dim uws As NotesUIWorkspace
Dim udoc As NotesUIDocument

Set uws=New NotesUIWorkspace
Set udoc = uws.CurrentDocument
Set doc = udoc.Document

Set ses = New NotesSession
Set db = ses.Currentdatabase

Set docMemo = db.CreateDocument()

docMemo.Form ="Memo"
docMemo.SendTo=doc.from
docMemo.body=doc.body
docMemo.Subject=doc.Subject

Call uws.Editdocument(True,docMemo)

End Sub

Vielleicht kann mir jemand helfen??
Brauche das alles bis Freitag, 10 Uhr. :-((

Vielen Dank im Voraus

lux in tenebris