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

[Christian Kruse]

Hoi,

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.

Wie soll denn auch die Maske 'Memo' gefunden werden, wenn sie in der Datenbank
gar nicht existiert?

Gruesse,
 CK

[lux in tenebris]

Hoi,

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.

Wie soll denn auch die Maske 'Memo' gefunden werden, wenn sie in der Datenbank
gar nicht existiert?

Gruesse,
CK

Kann man es nicht umgehen und eine Memomaske ins Forum kopieren??

Gruß

lux in tenebris

[lux in tenebris]

Hallo,

habe eine einfache Lösung gefunden:

@Command([MailForward]);
@Command([EditGotoField]; "tmpDisplaySendTo");
@Command([EditInsertText]; "lux in tenebris/")

Gruß
lux in tenebris