Domino 9 und frühere Versionen > Entwicklung

Zeitplan im Kalenderprofil per Script ändern

<< < (2/2)

mibo11:
Hallo Jens,

ich habs gefunden.

DateRange.Text in ein Array (vom Typ Variant) löst das Problem.

Vielen dank für den Ansatz.

Grüße aus dem Rheinland

Sascha

mibo11:
Hallo Jens,

ich habe mich leider zu früh gefreut.

Der Ansatz mit der NotesDateRange hat mich doch nicht weiter gebracht.

DateRange.Text liefert mir einen Textstring, den der freihe Zeit Agent nicht interpretieren kann. Anbei ein Screenshot des Debuggers vom entsprechenden Feld. Das Feld sollte allerdings so aussehen, wie in einem meiner letzten Postings. 

Was mir nicht ganz klar wird, ist die Tatsache, dass der Zeitraum 09:00 - 12:00, 13:00 - 18:00 im Debugger als Mehrfachfeld mit 4 Einträgen (09:00, 12:00, 13:00, 18:00) dargestellt wird (Datentyp Variant).  Wodurch werden dann im Frontend die Trennstriche dargestellt?

Gruß Sascha

Semeaphoros:
Du darfst das dem Feld natürlich nicht als Text übergeben, sondern mit ReplaceItemValue das gesamte Zeitobjekt oder einen Array von solchen Objekten übergeben.

mibo11:
Vielen Dank Jens,

das mit dem Objekt war es.

Anbei der Code:

   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim profdoc As NotesDocument
   Dim dr As NotesDateRange
   Dim i As Integer
   
   Set db = s.CurrentDatabase
   Set profdoc = db.GetProfileDocument("CalendarProfile")   
   Set dr = s.CreateDateRange
   
   dr.Text = ("09:00:00 AM - 01:00:00 PM")   
   
   For i = 2 To 6
      profdoc.ReplaceItemValue "$TimesDisp" & Cstr(i),dr
   Next
   profdoc.save True, False, True


Gruß Sascha

Semeaphoros:
Fein, gut dass es jetzt tut wie es soll :)

Navigation

[0] Themen-Index

[*] Vorherige Sete