Domino 9 und frühere Versionen > Administration & Userprobleme

Spezial-User

<< < (2/2)

Driri:
Okay, das kam nicht so rüber. Klar, das wäre mit der Ressource nicht lösbar.

Gerhard:
War mein Fehler, hab da auch erst später drüber nachgedacht !

Danke jedenfalls !

thoge:
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:


--- Code: ---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
--- Ende Code ---

Vielleicht ist das ein Lösungsansatz für Dich.

Viele Grüße

Thomas

Navigation

[0] Themen-Index

[*] Vorherige Sete