Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: FrankD am 18.04.07 - 10:16:07

Titel: Gruppenkalender per Script öffnen
Beitrag von: FrankD am 18.04.07 - 10:16:07

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

Titel: Re: Gruppenkalender per Script öffnen
Beitrag von: DerAndre am 18.04.07 - 10:24:32

Suchst Du sowas (http://atnotes.de/index.php?topic=28092.0)?

Titel: Re: Gruppenkalender per Script öffnen
Beitrag von: FrankD am 19.04.07 - 09:19:44

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