Meine Idee ist momentan in der Rnrmgr-Datenbank einen Agenten zu plazieren, der bei jedem neuen Eintrag, theoretisch also "unprocessed Documents" oder ginge auch "before new mail arrives", aktiviert wird und prüft, ob eine bestimmte Ressource gebucht wurde.
Wenn ja, dann hole die ApptUNID und den Chair des Dokuments, hole die DB des Chairs, suche die ApptUNID und füge Text in den Body ein.
So in etwa mal Quick&Dirty mit meinen sehr bescheidenen Lotusscript-Kenntnissen:
Set db=s.CurrentDatabase
Set col=db.UnprocessedDocuments
Set mynotesdir = s.getDirectory("MAILSERVER/SRV/Firma")
mytext = "Dial-In: 012345678"+Chr(13)+"Room number: 0815"+Chr(13)+"Pin: 4711"+Chr(13)
Set doc=col.getfirstdocument
While Not doc Is Nothing
Set item = doc.GetFirstItem( "ResourceName" )
If item.Contains ("Telefonkonferenzraum Geschäftsführung") Then
' Hole ApptUNID und Chair und suche dann nach ApptUNID in Mail-DB vom Chair
Set uid = doc.ApptUNID ' eindeutige ID des Kalendereintrags
Set chair = doc.Chair ' Vorsitzende der Einladung
Set mailinfo = mynotesdir.GetMailInfo(chair) ' Benutzereintrag aus Adressbuch
maildb = CStr(mailinfo(3)) ' Mail-DB des Benutzers
mailsrv = CStr(mailinfo(0)) ' Mail-Server des Benutzers
Set db = s.GetDatabase(mailsrv, maildb, False) ' Datenbank öffnen
If Not db.IsOpen Then Call db.Open("", "")
Set view = db.GetView("Calendar") ' Kalenderview öffnen
searchFormula = {ApptUNID = "} + uid + {"}
Set col = db.search(searchformula,Nothing,0) ' Nach eindeutiger ID suchen
Set doc1 = col1.GetFirstDocument
If doc1.ApptUNID = uid Then ' Sicherhaltshalber prüfen, ob das richtige Dokument gefunden wurde
Set rtBody = doc.GetFirstItem("Body")
Set rtBodyTmp = doc.CopyItem(rtBody, "Body") ' alten Body zwischenspeichern
Call rtBody.remove() ' Body löschen
Set rtBody = New NotesRichTextItem(doc, "Body") ' Body neu erstellen
Call rtBody.AppendText(myText) ' neuen Text anfügen
Call rtBody.AppendRTItem(rtBodyTmp) ' alten Body anfügen
Call rtBodyTmp.remove() ' Zwischenspeicher wieder löschen
Call doc.Save(True, False, False)
End If
End If
Set doc=col.GetNextDocument(doc)
Wend
Oder bin ich damit so völlig auf dem Holzweg?