Hallo zusammen,
ich erstelle mit dem Code unten aus einer Mail einen Termin. das klappt auch wunderbar. Der termin wird eingetragen und alle Felder sind schön gefüllt. Auch das Feld "body" (Richtext in der appointmentmaske). Da das ganze ja im Frontend stattfindet kann ich den Inhalt am Bildschirm sehen. Danachwird das Domument geschlossen. Rufe ich nun diesen termin neu über den Kalender auf ist alles da bis auf den Inhalt des Feldes "Body".
Warum ? Ich habs gesehen und gespeichert wirds im Code doch auch!
Sub Click(Source As Button)
Dim Beschreibung As String
Dim sdatum As String
Dim szeit As String
Dim edatum As String
Dim ezeit As String
Dim h_raum As String
Dim h_beschreibung As String
Dim dbmail As New NotesDatabase("","")
Dim uiws As New notesuiworkspace
Dim uidoc As NotesuiDocument
Dim h_body As String
Set uidoc = uiws.CurrentDocument
h_raum=uidoc.FieldGetText("mf_raum")
h_beschreibung=uidoc.FieldGetText("mf_besprechungspunkt")
h_body=uidoc.FieldGetText("mf_anm_besprechungspunkt")
sdatum= uidoc.Fieldgettext(Cstr("mf_sitzungsdatum"))
szeit= uidoc.FieldGetText(Cstr("mf_uhr_von"))
edatum= uidoc.FieldGetText(Cstr("mf_sitzungsdatum"))
ezeit= uidoc.FieldGetText(Cstr("mf_uhr_bis"))
Call dbmail.OpenMail()
Set uidoc= uiws.composedocument(dbmail.Server,dbmail.FilePath,"Appointment")
Call uidoc.FieldSetText("appointmenttype","0")
Call uidoc.FieldSetText("tmpappointmenttype","0")
Call uidoc.Refresh
Call uidoc.reload
Call uidoc.fieldsettext("subject","Vorstandssitzung am " + sdatum + " " + h_beschreibung)
Call uidoc.FieldSetText("location",h_raum)
Call uidoc.fieldAppendText("body",h_body)
Call uidoc.save
Call uidoc.FieldSetText("startdate",sdatum)
Call uidoc.fieldsettext("starttime",szeit)
Call uidoc.FieldSetText("enddate",edatum)
Call uidoc.FieldSetText("endtime",ezeit)
Call uidoc.Refresh
Call uidoc.reload
Call uidoc.save
Call uidoc.close
Msgbox"Der Kalendereintrag wurde erzeugt"
End Sub