Transfer von Terminen in den Notes Calendar

[Cyp]

hallo,
wir wollen bei uns in der firma nun endlich von einem selbstgeschriebenen Calendar auf den notes calendar umsteigen um dann die termine des einzelnen für alle sichtbar zu machen kann man die Calendar einträge vom noteskallendar in einen gemeinsam genutzten "teamCalendar" übertragen..soweit funktioniert das auch schon ganz gut..das problem ist: im alten terminCalender sind noch jede menge termine die nun erstmal abhängig von der person in den jeweils eigenen notesCalendar (in der mailbox) übertragen werden soll..
das wiederum geht schon halbwegs..allerdings fehlen mir irgendwie die richtigen felder wenn es darum geht termine, die über mehrere tage gehen zu übertragen..ich glaube das es über das feld Repeat funktioniert..kennt sich damit jemand aus?
hier mal ein ausschnitt der speziell den bereich der termine über mehrere tage betrifft:
Dim dtCDT As New NotesDateTime(doc.GetItemValue("DateBegin")(0) & " " & doc.GetItemValue("Time")(0))

Dim dtCDT2 As New NotesDateTime(doc.GetItemValue("DateBegin")(0) & " " & doc.GetItemValue("Time")(1))

If Not doc.GetItemValue("DateBegin")(0) = doc.GetItemValue("DateEnd")(0) Then

i = 0
         
Forall dates In doc.GetItemValue("CalendarDatetime")
i = i+ 1
End Forall

With doct
   .ReplaceItemValue "RepeatFor" , i
   .ReplaceItemValue "startDate", doc.GetItemValue("DateBegin")(0)
   .ReplaceItemValue "EndDate", doc.GetItemValue("DateBegin")(0)
   .ReplaceItemValue "Repeats" , "1"
   .ReplaceItemValue "OrgRepeat" , "1"
   .replaceitemvalue "RepeatInstanceDates" , doc.GetItemValue("daterange")
   .ReplaceItemValue "StartTime", doc.GetItemValue("Time")(0)
   .ReplaceItemValue "EndTime", doc.GetItemValue("Time")(1)
   .ReplaceItemValue "StartDateTime",dtCDT.LSLocalTime
   .ReplaceItemValue "EndDateTime",dtCDT2.LSLocalTime
   .ReplaceItemValue "CALENDARDATETIME", doc.GetItemValue("daterange")
End With

Else
  docT.ReplaceItemValue "startDate", doc.GetItemValue("DateBegin")(0)
  docT.ReplaceItemValue "EndDate", doc.GetItemValue("DateEnd")(0)
  docT.ReplaceItemValue "StartTime", doc.GetItemValue("Time")(0)
  docT.ReplaceItemValue "EndTime", doc.GetItemValue("Time")(1)
  docT.ReplaceItemValue "CALENDARDATETIME", dtCDT.LSLocalTime
  docT.ReplaceItemValue "StartDateTime",dtCDT.LSLocalTime
  docT.ReplaceItemValue "EndDateTime",dtCDT2.LSLocalTime
End If
über hilfe würd ich mich sehr freun!

[m3]

1) Du willst das IBM Lotus Notes Calendaring & Scheduling Schema lesen, wenn Du es manuell machen willst/musst.
2) Wäre es nicht einfacher, die Daten als iCal File aus dem alten System zu exportieren und dann in die Domino-Kalender einzufügen?

[koehlerbv]

Und dann noch ein paar Grossbuchstaben opern ... und sich einigen, ob es nun "kallendar" oder "calendar" oder nun doch "Kalender" heisst!

Bernhard