Speziellen /Raum/Ressource anlegen möglich?

[schroederk]

Hallo,

in unserer Telefonanlage ist ein Konferenzsystem integriert. Bei Eingabe der Durchwahl und später der Eingabe einer Pin gelangt man in den virtuellen Konferenzraum. (Ich plane zwar den Einsatz einer großen Sametime-Umgebung, aber das wird wohl noch eine Weile dauern).

Jetzt lädt die Geschäftsleitung regelmäßig zu solchen Telefonkonferenzen ein und gibt bisher immer manuell in der Einladungsbeschreibung die Telefonnummer, Durchwahl und Pin an.
Wäre es möglich über den Ressourcenmanager einen Raum oder Ressource zu erstellen, bei dem bei Auswahl automatisch diese Informationen angefügt werden? Z.B. in Form eines Textes in der Beschreibung oder als Anhang?

Ich befürchte mal, dass es nicht ohne Eingriff in das Mail-Template funktionieren würde, aber ich wollte sicherhaltshalber mal Euch Experten fragen 

[Tim Pistor]

Die bekannten Mailsignaturen-Tools müssten in der Lage sein, bei einer bestimmten Regel (Ein Empfänger ist der Konferenzraum) die Information mit in die Mail zu packen. Habt Ihr sowas im Einsatz?

[schroederk]

Hey, ein guter Ansatz. Wir setzen von der IQSuite den Trailer ein. Damit könnte es funktionieren. Werde ich mal testen. Danke schön.

[MarkusS]

Hola.
Also wir haben dafür separate Ressourcen angelegt, die man dann buchen kann.
In den Namen der Ressource die DW + PIN angegeben.

VG
Markus

[schroederk]

Also wir haben dafür separate Ressourcen angelegt, die man dann buchen kann.
In den Namen der Ressource die DW + PIN angegeben.

Ich hatte versuchsweise einen Raum angelegt und in der Beschreibung die Einwahl+Pin angegeben.
Problem ist, dass es bei der Auswahl des Raums und beim Empfänger nirgends auftaucht.
Bin gerade dabei etwas mit der IQ.Suite zu basteln.

[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

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