Ziel ist es, eine Mail zu versenden, die ein Button enthält, der wiederum einen Termin in den Kalender des Empfängers einträgt.
Vorgehensweise:
Per Button in einem weiteren Dokumentes erzeuge ich eine Mail an einen User. Dabei kopiere ich aus einer Vorlage (docReminder) einen Button, der im Body der Vorlage steht, der später beim Empfänger den Eintrag in dessen Kalender vornehmen soll.
Hier der entsprechende Ausschnitt zur Erzeugung der Mail mit dem entscheidenden Eintrag des Termins:
Dim docMail As NotesDocument
Dim docReminder As NotesDocument
Set docReminder = CurrentDB.GetDocumentByUNID( "410D339D9F573BC8C12572B3003749C6" )
Set docMail = CurrentDB.CreateDocument
docMail.Form = "Memo"
docMail.SendTo = user
docMail.Subject = "Geplanter Termin am " & uidoc.FieldGetText("Termin")
docMail.Termin = uidoc.FieldGetText("Termin")
Set rtBody = New NotesRichTextItem( docMail, "Body" )
Call rtBody.AppendRTItem( docReminder.GetFirstItem("Body" ))
Call docMail.Send( False )
Diese Mail enthält nun tatsächlich den besagten Button und scheinbar das Feld “Termin”. Leider wird aber beim Ausführen des Buttoncodes der Fehler abgesetzt: „Cannot locate field“, obwohl im Debugger als auch bei den Propereties das Feld „Termin“ mit richtigem Inhalt ausgewiesen wird.
Hier der Buttoncode für das Eintragen des Reminder-Termins:
Dim uiws As New NotesUIWorkspace
Dim docMail As NotesUIDocument
Dim duedate As String
Set docMail = uiws.CurrentDocument
duedate = docMail.FieldGetText("Termin")
LOTUS NOTES ERROR: Cannot locate field
Vielleicht kann mir jemand weiterhelfen, bin selbst ratlos.
Alexis