Domino 9 und frühere Versionen > ND9: Administration & Userprobleme

Speziellen /Raum/Ressource anlegen möglich?

<< < (2/2)

schroederk:
Ich hab es mit der IQ.Suite jetzt zwar hinbekommen, dass jeder Empfänger in er Beschreibung die Einwahl-Daten erhält,
ABER...  der Ersteller hätte auch gern in seinem Kalendereintrag die Einwahldaten stehen, damit er selber nicht auch noch erst nachschauen muss.
Da der Ersteller ja aber keine Einladungs-Mail bekommt, greift hier auch die IQ.Suite nicht.

hat jemand noch eine Idee, wie ich das jetzt noch lösen könnte?

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

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

--- Ende Code ---

Oder bin ich damit so völlig auf dem Holzweg?

Navigation

[0] Themen-Index

[*] Vorherige Sete