Mehrere Appointments auf einmal erstellen

[elmolino]

Hallo,
unsere Sekretärin will allen Mitarbeitern in deren Kalender ein Termindokument einstellen, daß der Chef abwesend ist (nicht damit die dann "auf den Tischen tanzen können", sondern gut informiert sind).
Das ganze soll nicht als Mail sondern unbedingt als Eintrag im Kalender stehen. Was gibt es da für Möglichkeiten ? Die Sekretärin hat das Recht auf alle Kalender zuzugreifen und dort Einträge zu machen. Sie soll keine Besprechung schicken, die man dann noch annehmen muß. Sie soll es gleich eintragen. Was denkt Ihr ? Script ? Gruppenkalender ? Bin ratlos wie das gehen soll...
Daß man mit Script sich selbst etwas eintragen kann, ist klar (s.Beispiel). Aber geht das auch bei anderen Mail-DB ?? Ein Script, das bei bestimmten Gruppen Einträge im Kalender macht, wäre natürlich schick. Oder ist ein Gruppenkalender mit Agent die richtige Lösung ?

Sub Click(Source As Button)
   Dim session As New NotesSession   
   Dim db As New NotesDatabase ("","")
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument   
   Dim userName As New notesname(session.username)
   Dim dbfilename As String
   Dim dbserver As String
   Dim value As Integer
   Dim vondatum As String
   Dim bisdatum As String
   
   Call db.OpenMail   
   dbfilename=db.filepath   
   dbserver = db.server
   
   value = Messagebox ("Soll der Geburtstag " + Chr(10) + "in den Kalender eingetragen werden?", (4+32+0+0), "Geburtstag in den eigenen Kalender eintragen")
   
   If (value = 6) Then
      
      Set uidoc = ws.CurrentDocument
      vondatum = uidoc.FieldGetText( "GEBURT2" )
      bisdatum = uidoc.FieldGetText( "GEBURT2" )
      user = uidoc.FieldGetText("Kalendereintrag")
      Print vondatum, bisdatum   
      
      Set uidoc = ws.ComposeDocument (dbserver,dbfilename,"Appointment")
      Call uidoc.FieldSetText("Subject",user)
      Call uidoc.FieldSetText("StartDate",vondatum)     
      Call uidoc.FieldSetText("EndDate",bisdatum)
      Call uidoc.FieldSetText("AppointmentType","2")
      Call uidoc.Refresh()
      Call uidoc.FieldSetText("BookFreeTime","1")     
      Call uidoc.Save()
      Call uidoc.Close()
      
      Messagebox ("Geburtstag wurde in den Kalender eingetragen")
   Else
      Messagebox ("Kalender wurde nicht verändert")
   End If
   
End Sub