Kalendereinträge auslesen in eigene Datenbank

Hallo Zusammen!

Habe ein eiliges Prolem!

Da wir in unserem Kundenservicecenter auf die Termine von allen Kundenberatern in externen Filialen zugreifen müssen, und nur geringe Bandbreiten haben, scheint es mir vorerst als einzige Lösung über eine eigene Anwendung per Knopfdruck die Termine des ausgewählten Beraters des aktuellen Tages in einer Maske / Ansicht anzeigen zu lassen.

Mir fehlt aber leider ein wenig Ansatz, bzw.
Quelltext/Syntaxkenntnisse.

Mein Ansatz ist:

In der Maske unter "Postopen" ein Lotus Script womit eine Verbindung zur mail\userdb.nsf hergestellt wird.

Dann in die Kalenderansicht wechseln und die Termine des Tages in ein Maskenfeld zu importieren.

Aber wie letztendlich Quelltextmäßig?

Wäre über Quelltextbeispiele oder Schablonen irre dankbar!

Vielen Dank!

Hi!

Meinst Du den Gruppenkalender den ich z.B. bei mir in den Kalenderwerkzeugen erstellen kann?

Da wirds doch nur mit Farben etc angezeigt, bringt und nicht weiter, da nicht unterschieden werden kann ob der Berater nen internen oder externen Termin hat.

Im Kalender hat er das ja "wörtlich" eingetragen.

Brauchen ja nen Adhock Zugriff... D.h., der Berater könnte sich ja im Laufe des tages selbst einen Termin eintragen, welcher ja dann erst bei der nächsten Replizierung in den Gruppenkalender einträgt.

Wie gesagt, brauche etwas, was in den Kalender des Users schaut, und mir in einer eigenen Notes - Anwendung in einem z.B. Textfeld einer Maske die Terminthemen sowie Start und Endzeit anzeigt.

Als Beispiel ein Script wie es meiner Meinung nach aussehen könnte:

Sub Postopen(Source As Notesuidocument)
Source.document.SaveOptions = "1"

If Source.IsNewDoc Then
' Initialisierung der ObjRef
Dim oDb1 As NotesDatabase
Dim oDb2 As NotesDatabase
Dim oView1 As NotesView
Dim oDoc1 As NotesDocument
Dim sServer As String
Dim Thema (0) As String


' Instatiierung der ObjRef
Set oSession = New NotesSession
sServer = Source.fieldGetText("txtMailServer")
Set oDb = Session.getDatabase(sServer,"mail\userdb.nsf")
Set oView = oDb.getView("($Calendar)")

Set oDoc = oView.getDocumentByKey(Subject)
Thema = oDoc.getItemValue("Subject")


Set oView1 = oDb.getView("($Calendar)")
Set oDoc1 = oView1.getDocumentByKey(Subject(0))
Thema = oDoc1.getItemValue("Subject")
Call Source.FieldSetText("Textfeld",Thema(0))
End If

End Sub