Domino 9 und frühere Versionen > ND8: Entwicklung

Probleme mit automatisiertem Termineintrag

(1/4) > >>

ringelnatz66:
Hallo zusammen,

ich habe da ein Problem welches ich mir, auch zusammen mit meinem Admin, nicht erklären kann.
Wir arbeiten mit Notes 8.0.2 Fixpacklevel 6 mal mit Terminalserver aber auch lokal.
Das Problem:
Aus einer DB wird ein Mail generiert (mit Datum und Uhrzeit einer Sitzung), welches eine Schaltfläche beinhaltet die wiederum einen Kalendereintrag vom Typ Termin erstellen soll. Das Script sieht so aus:

Sub Click(Source As Button)
   Dim session As New NotesSession  
   Dim db As New NotesDatabase ("","")
   Dim UiWs As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As notesdocument
   Dim startdatum As String
   Dim startzeit As String
   Dim enddatum As String
   Dim endzeit As String
   Dim thema As String
   Dim beschreibung As String
   
   Dim userName As New notesname(session.username)
   Dim dbfilename As String
   Dim dbserver As String
   Dim value As Integer
   
   Set uidoc = UiWs.CurrentDocument
   Set doc = uidoc.Document
   
   startdatum = uidoc.FieldGetText("mf_sitzungsdatum")
   startzeit = uidoc.FieldGetText("mf_uhr_von")
   enddatum = uidoc.FieldGetText("mf_sitzungsdatum")
   endzeit = uidoc.FieldGetText("mf_uhr_bis")
   thema = uidoc.FieldGetText("Subject")
   beschreibung = uidoc.FieldGetText("mf_anm_besprechungspunkt")
   
   Call db.OpenMail
   dbfilename=db.filepath  
   dbserver = db.server
'*****************Do this chunk of code for each holiday in the year**************************      
   Set uidoc = UiWs.ComposeDocument (dbserver,dbfilename,"Appointment")
   'uiDoc.Document.AppointmentType="0"
   Call uidoc.FieldSetText("AppointmentType","0")
   'Call uidoc.reload   
   Call uidoc.Refresh
   Call uidoc.FieldSetText("Subject", thema)
      'Datumswerte
   Call uidoc.FieldSetText("StartDate",startdatum)
   Call uidoc.FieldSetText("EndDate",enddatum)
   Call uidoc.FieldSetText("StartTime",startzeit)
   Call uidoc.FieldSetText("EndTime",endzeit)
   Call uidoc.FieldSetText("Body", beschreibung)
   'Call uidoc.reload   
   Call uidoc.Refresh
   Call uidoc.Save()
   Call uidoc.Close()
   Messagebox("Der Kalendereintrag wurde erzeugt.")
      
End Sub

Bei manchen Usern wird der Termin einwandfrei erstellt. Ich persönlich bekomme die Fehlermeldung "Object Variabel not set". Diese Meldung kann ich wegklicken und drücke dann nochmals auf die Schaltffläche.
 Es kommt dann keine Fehlermeldung und der Termin wird eingetragen.
Bei den meisten Usern wird ein Termin (ohne Fehlermeldung) eingetragen, aber unter dem Datum von heute und mit der , gem.Notes, nächsten verfügbaren Uhrzeit. Während des Eintragens sieht am Bildschirm noch alles korrekt aus aber im Kalender findet man dann den Blödsinn. Hier sind dann auch die Felder "Startdatetime, Enddatetime und Calenderdatetime" falsch (also mit den Werten von heute) gesetzt.Außerdem handelt es sich dann nicht um einen Termin sondern um einen Entwurf zu einer Besprechungseinladung.

Unter Notes 6.54 klappte die ganze Sache jahrelang völlig problemlos.

Kann mir jemand bitte dieses Phänomen erklären !?!?


Viele Grüße aus Mülheim an (in) der Ruhr


PS: Wie kann ich in dieses Forum ein Screenshot einfügen um mein Problem noch deutlicher zu machen? Kopieren und einfügen geht wohl nicht. Geht es nur als Dateianhang?

oxyd21:
Du könntest den Debugger benutzen und sagen, an welcher Stelle der Fehler kommt  ;)

klaussal:

--- Zitat ---Geht es nur als Dateianhang?
--- Ende Zitat ---
Ja.

ringelnatz66:
Das mit der Fehlermeldung tritt ja nur bei mir auf und auch das immer nur einmal. Beim zweiten und hundertstenmal kann ich Schaltfläche betätigen und alles ist gut. Mich würde vielmehr interessieren was passiert da bei den anderen Usern ?

klaussal:
Benutze doch mal den Debugger.

Navigation

[0] Themen-Index

[#] Nächste Seite