Domino 9 und frühere Versionen > ND8: Entwicklung
Probleme mit automatisiertem Termineintrag
ringelnatz66:
War gerade bei meinem Admin. Der Termin wird nicht richtig eingetragen. Zusätzlich hat er das gleiche Problem, welches ich gestern hatte. Der Script Debugger startet bei der Appointment Anwendung. Wir haben auch mal die Cache.ndk gelöscht und die Notes.ini bis auf die ersten 6 Zeilen bereinigt. Das Problem besteht weiterhin.
oxyd21:
[Ironie]
Du hattest natürlich die Anwendung geschlossen, als du den Debugger gestartet hattest!
Du hast dir selbstverständlich schon ein On Error Statement eingebaut um den Fehler zu finden!
Weiterhin hast du schon mit Print-Statement versucht die Stelle zu finden!
Weil du es im Frontend nicht hin bekommen hast, verwendest du nun das Backend!
[/Ironie]
Puh, du hast ja schon vieles durchprobiert. Ich glaub da brauchst du doch professionelle Hilfe.
ringelnatz66:
Nur zur Deutlichkeit. Der Fehler "Object var...." trat ja nur bei mir auf. Jetzt auch nicht mehr. Bei den anderen Usern wird der Termin ja ohne Fehlermeldung eingetragen; nur leider immer unter dem falschen Datum und der falschen Uhrzeit.
oxyd21:
Du brauchst nicht's verdeutlichen. Du ignorierst nur hartnäckig die Herangehensweise und Fehlersuche, die ich dir skizziert habe.
Das hier würde aber auch ganz gut passen:
http://atnotes.de/index.php/topic,50525.msg324363.html#msg324363
ringelnatz66:
Mein Problem aus dem letzten Jahr hat sich leider noch nicht erledigt. Ein Stück weiter bin ich aber schon. Ich habe das Script mit Hilfe von Büchern, Hilfefunktion und ausprobieren nochman neu gemacht. Und das schöne ist: Es funktioniert; zumindest teilweise.
Das Problem was bleibt ist, dass der Eintrag nur dann richtig als "Termin" eingetragen wird wenn auch in den Vorgaben des Users für neue Kalendereinträge "Termin" als Vorgabe eingestellt ist. Steht in den Vorgaben was anderes geht es schief.
In dem Script wird aber doch der "Appointmenttype="0"" gesetzt !?
Wieso ignoriert Notes das hartnäckig ?
Ansonsten läuft das Scipt sauber und ohne Fehlermeldung (auch im Debugger) durch.
Hier nochmal der Code
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 h_body As String
Dim dbmail As New NotesDatabase("","")
Dim uiws As New notesuiworkspace
Dim uidoc As NotesuiDocument
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.Refresh
Call uidoc.reload
Call uidoc.fieldsettext("subject",h_beschreibung)
Call uidoc.FieldSetText("location",h_raum)
Call uidoc.FieldSetText("body",h_body)
Call uidoc.Refresh
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.save
Call uidoc.close
Msgbox"Der Kalendereintrag wurde erzeugt"
End Sub
Navigation
[0] Themen-Index
[#] Nächste Seite
[*] Vorherige Sete
Zur normalen Ansicht wechseln