Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Raimund am 09.05.02 - 10:08:28
-
???
Hallo,
habe ein Problem:
Beschreibung:
Eine Schaltflä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?? :(
Vielen Dank im Voraus
Raimund
-
Hallo,
habe eine einfache Lösung gefunden:
@Command([MailForward]);
@Command([EditGotoField]; "tmpDisplaySendTo");
@Command([EditInsertText]; "Raimund/")
Gruß
Raimund ;D