Hallo Gerhard,
wir haben das folgendermaßen gelöst:
Projekte erhalten bei uns eine sogenannte Projektdatenbank, entwickelt aus einer normalen Maildatenbank. Diese Projektdatenbank ist als Alias- Mail - Datenbank eingerichtet worden.
Alle projektrelevanten Besprechungseinladungen (z.B. JourFixe oder Sondertermine) werden über die Projektdatenbank an die einzelnen Projektbeteiligten geschickt.
Wenn dann ein solcher Termin gemacht wurde, wird per Agent dieser Termin in eine übergeordnete Termindatenbank kopiert. In dieser übergeordneten Termindatenbank laufen alle Termine aus allen Projektdatenbanken zusammen. Änderungen werden ebenfalls automatisch hochgepumpt.
Die entsprechende Kalenderansicht wird dann als Ansicht in den persönlichen Kalenderansichten der User integriert. Sie ist dann per Gliederungseintrag aufrufbar.
Das Script, um z.B. spezielle Termine (hier Gewährleistungsfristen) hochzupumpen sieht beispielhaft so aus:
Sub Initialize
' On Error Goto ErrorHandler
Dim session As New NotesSession
'--- Ermitteln von Quell- und Zieldatenbank
Dim dbSource As NotesDatabase
Set dbSource = session.CurrentDatabase
Dim dbtitel As String
dbTitel=dbSource.Title
Dim GWFdb As New NotesDatabase( "SERVER", "projekte\ProjekttermineDB.nsf" )
Dim viewdb As NotesView
Dim viewGWS As NotesView
Dim entry As NotesViewEntry
Dim vc As NotesViewEntryCollection
Dim j As Integer
Dim doc As NotesDocument
'---Gewährleistungsfristen aus der Projekttermin-Datenbank löschen
Set viewGWS = GWFdb.GetView("GWS")
Set vc = viewGWS.GetAllEntriesByKey(dbTitel)
Call vc.RemoveAll(True)
Call viewGWS.Refresh
'--- Import
Dim docGW As NotesDocument
Dim docGW2 As NotesDocument
Set viewdb = dbSource.GetView("GWS")
Set docGW = viewdb.GetFirstDocument
While Not docGW Is Nothing
Set docGW2 = docGW.CopyToDatabase(GWFdb)
Set docGW = viewdb.GetNextDocument(docGW)
Wend
Call viewdb.Refresh
Msgbox "Die ausgewählten Gewährleistungsfristen aus dieser Projektdatenbank wurden in die Projekttermin-Datenbank übertragen. "
Exit Sub
ErrorHandler:
Print "Ein Fehler ist aufgetreten: " & Error$ & " in der Reihe " & Cstr (Erl)
Exit Sub
End Sub
Vielleicht ist das ein Lösungsansatz für Dich.
Viele Grüße
Thomas
