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