2 Probleme - Kalender und Script und Bearbeitung verhindern

[manboo8000]

Hey, in der Lotus Entwicklung bin ich noch recht frisch und über die Suche konnte ich meine Problemstellungen nicht finden. Vielleicht könnt ihr mir da weiterhelfen.

Problem 1: In einer Datenbank sollen bestimmte Termine erfasst werden, zu denen sich die Mitarbeiter dann eintragen können. Dabei enthält das Dokument auch eine Schaltfläche, was den Termin in den persönlichen Kalender mittels Lotus Script eintragen soll. Das Dokument erscheint dann auch im Kalender, allerdings ohne Anzeige der Uhrzeit, wenn man sich seinen Kalender öffnet. Beim Öffnen dieses Kalendereintrages kommt dann auch eine Fehlermeldung, dass Elemente nicht gefunden wurden. Welche Elemente fehlen, sagt Notes leider nicht. Ich habe schon mal manuell einen Kalendereintrag angelegt und die Felder vom Inhalt und vom Typ her mit meinem über die Schaltfläche erzeugten verglichen, aber die (für mich scheinbar) relevanten Felder sind alle identisch belegt und vom gleichen Feldtypen. Auch die Felder mit StartDate, StartTime usw. sind alle korrekt befüllt. Wie kann ich nun weiter vorgehen?

Problem 2: In der Datenbank sollen nach dem Anlegen von Dokumenten (was jeder User darf) die angelegten Dokumente nur noch über angelegte Aktionen verändert werden können (diese bewirken z. b. eine Eintragung in die Teilnehmerliste oder eine Erfassung von Bemerkungen).  Was nicht gehen soll ist das normale ändern des Dokumentes mittels Doppelklick, STRG+B. Geht das?

[WildVirus]

Erstmal herzlich willkommen, Namenloser.

zu 1) siehe http://atnotes.de/index.php/topic,34494.0.html
zu 2) ja, geht, gibt es DocumentEvents, die das steuern, z.B. QueryOpen

Viel Erfolg
CU,
Axel

[Driri]

Wenn ich das richtig verstanden habe, dann werden die Teilnehmer/Anmeldungen direkt in das Termindokument geschrieben ?

Das empfinde ich von der Architektur her unglücklich, denn somit müssen die Teilnehmer ja auf jeden Fall Schreibrechte auf das Termindokument haben. D.h. man könnte als Anwender so ein Dokument z.B. via Agent oder SmartIcon manipulieren.

Besser wäre es, wenn es ein Termindokument gibt, das mit einem passend gefüllten Autorenfeld nur vom Ersteller oder einer eingegrenzten Gruppe bearbeitbar ist und jeder Teilnehmer seine Anmeldung als Antwortdokument abgibt. Dieses Antwortdokument hätte dann ebenfalls ein Autorenfeld, in der der jeweilige Teilnehmer eingetragen ist.

[manboo8000]

Problem 1 habe ich lösen können, habe es einfach mal mit mehr oder weniger Feldern probiert, bis es irgendwann ging. Notes ist da ja echt komisch...

Problem 2 werde ich mir dann nochmal anschauen.

@Driri: Wenn ein Anwender da was manipulieren möchte, dann soll er das tun. Letztendlich sind das keine wichtigen Sachen, die Datenbank ist nur "Schmuck am Nachthemd". Abgesehen davon wage ich zu bezweifeln das unsere Mitarbeiter überhaupt wissen, was ein Agent ist :-)
Aber wenn das mit dem Antwort-Dokument einfach zu handeln ist, bin ich auch dafür offen :-)

[manboo8000]

habe gerade noch ein anderes Problem. Und zwar wird in Dokumenten eine Aktion angezeigt "Mail an alle Teilnehmer senden". Ziel soll sein, dass beim Klick über die MailDB des Benutzers eine neue Nachricht erzeugt wird und dort bereits die Felder SendTo und Subject vorbelegt sind. Mein Code ist in einem Agenten hinterlegt, in der Schaltfläche das Kommando den Agenten zu starten. Leider passiert beim Anklicken gar nichts. Könnt ihr mir helfen?

Code

Option Public
Sub Initialize
	Dim session As New NotesSession
	Dim workspace As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument 
	Dim db As NotesDatabase
	Dim doc As NotesDocument 
	Dim user As New NotesName(session.UserName)
	Dim maildb As New NotesDatabase( "", "" )
	Set uidoc = workspace.CurrentDocument
	Set db = session.CurrentDatabase
	Set doc = uidoc.Document
	
	
	On Error GoTo ErrorHandler

	Call maildb.OpenMail
	If Not (maildb.IsOpen) Then
		MessageBox "Die Maildatenbank <" & maildb.Title & "> auf dem Server <" & maildb.Server & "> konnten nicht geöffnet werden. Evtl. besteht ein Problem mit den Zugriffsrechten oder der Arbeitsumgebung.", 16, "Maildatenbank konnte nicht geöffnet werden"
		Exit Sub
	End If


	Dim newmail As New NotesDocument(maildb)
	Call newmail.ReplaceItemValue("Form","Memo")
	Call newmail.ReplaceItemValue("Subject",doc.Bezeichnung)
	Call newmail.ReplaceItemValue("SendTo",doc.Teilnehmer)		

	GoTo Ende
	
ErrorHandler: 
	
	MsgBox "Mail --> Fehler in Zeile: " & Erl & "  (Error" & Str(Err) & ": " & Error$ & ")"
	Exit Sub
	
Ende:
End Sub

[Peter Klett]

Ein

Call newmail.Save (True, True)

würde das im Speicher erstellte Dokument speichern, dann kannst Du es auch sehen ...

[manboo8000]

habe das Kommando jetzt nach dem letzten Call newmail.replace.... eingetragen. Sehe aber immer noch nichts :-(

[Tode]

Ist das Dein ganzer Code? Weil "sehen" kannst Du ein im backend erstelltes Dokument erst, wenn Du es ins Frontend bringst... Mit Peters tipp findest Du das Dokument in "Alle Dokumente"...

Dir fehlt also (anstatt des save) ein Call workspace.EditDocument( True, newmail )

[manboo8000]

Ist das Dein ganzer Code? Weil "sehen" kannst Du ein im backend erstelltes Dokument erst, wenn Du es ins Frontend bringst... Mit Peters tipp findest Du das Dokument in "Alle Dokumente"...

Dir fehlt also (anstatt des save) ein Call workspace.EditDocument( True, newmail )

perfekt! Danke! So funktioniert es.