Gruppenkalender per Script öffnen

[FrankD]

Hallo liebes Forum,

folgendes Problem:

Ich würde gerne per LS (oder auch @Formel) einen bestimmten Gruppenkalender öffnen, habe aber keine Ahnung wo ich ansetzen soll.

Ich habe mir in der MailDB, die Rahmengruppen, Masken, Ordner etc. zum Gruppenkalender angesehen - blicke aber nicht durch wie man am sinnvollsten diesen öffnet.

Für Tipps und Anregungen wäre ich sehr dankbar

Vielen Dank

[DerAndre]

Suchst Du sowas?

[FrankD]

Habe eine Lösung gefunden, in dem ich mir die Funktion und den Click-Event aus der Maske (Switcher Form for Group Calendars) bereichert habe.

Function OpenGroupCalendar(thisGrp As Integer)
   
   Dim s As New notessession
   Dim uiwork As New notesuiworkspace
   Dim grpView As notesview
   'Set db = s.currentdatabase
   
   Set db = New NotesDatabase("Mailserver", "Datenbankname")
   Call db.Open("Mailserver ","Datenbankname")
   
   Set grpView = db.getview("(GroupCalendarFolder)")
   
   'tmpGroupCalendars = Evaluate(|@DbColumn("":"";""; "(GroupCalendarFolder)" ;1)|)
   
   'tmpName = tmpGroupCalendars(thisGrp-1)
   'Name des Gruppenkalenders
   tmpName = "Bereichsleitung"
   Set grpDoc = grpView.getdocumentbykey(tmpName)
   
   Set uidoc=uiwork.EditDocument(True,grpDoc, False)
   
End Function

Sub Click(Source As Button)
   Dim thisGrp As Integer
   thisGrp = 1
   Call OpenGroupCalendar(thisGrp)
End Sub