Item in Document hinzufügen

[grandmetre]

Hallo zusammen,

Ich versuche mich erstmal an der Lotus-script-sprache und scheitere schon beim hinzufügen eines Items im Document. Ich bekomme immer die Meldung: "Object variable not set". Hier der dazugehörige code:

Code

	
	Dim session As New NotesSession
	Dim doc As NotesDocument
	
	Set doc = session.DocumentContext
	Call doc.ReplaceItemValue("Status", "processing")
	Call doc.Save( True, False , False )

Ich hab es auch schon übers NotesUIWorkspace und übers NotesUIDocument versucht, aber leider mit dem gleichen Ergebnis. Dürfte doch eigentlich nicht so schwehr sein, dachte ich zumindest :-)

[klaussal]

Sieh mal in der Designer-Hilfe nach. Da steht ein gutes Beispiel....

Und "Option Declare" nicht vergessen.

[Driri]

DocumentContext gilt nur für einen Agenten. Willst Du das Item im aktuell geöffneten Dokument setzen ?

Wenn ja, könntest Du über das UIDOcument an das Document kommen. Man muß dann nur darauf achten, daß man das UIDocument nicht drüberspeichert.

Sieht dann in etwa so aus :

Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument

Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document

Call doc.ReplaceItemValue("Status", "processing")
Call doc.Save( True, False , False )

[Axel]

Wie rufst du denn den Code auf, Agent, Ansichten- oder Maskenaktion? Ist das der gesamte Code?

Willst du damit auf das markierte Dokument in der Ansicht zugreifen ?

Axel

[grandmetre]

DocumentContext gilt nur für einen Agenten. Willst Du das Item im aktuell geöffneten Dokument setzen ?

Wenn ja, könntest Du über das UIDOcument an das Document kommen. Man muß dann nur darauf achten, daß man das UIDocument nicht drüberspeichert.

Sieht dann in etwa so aus :

Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument

Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document

Call doc.ReplaceItemValue("Status", "processing")
Call doc.Save( True, False , False )

Das hatte ich auch schon versucht. Leider kommt da auch die gleiche Fehlermeldung.
Ich versuche das Item im "Sub Queryclose(Source As Notesuiview, Continue As Variant)" im $Inbox Ordner hinzuzufügen.

[Axel]

Wenn du den Code in das QueryClose - Event packst, dann kann das mit dem UIDocument nix werden.

Beschreibe mal, was du überhaupt errreichen willst?


Axel

[grandmetre]

Ich will ein TeamMailbox so verändern, dass wenn eine Person eine Mail gerade anschaut oder die Mail schließt ein "Status"-Item gesetzt wird, damit ich bei anderen Usern, die die gleiche Datenbank benutzen durch ein Icon anzeigen kann, Ob die Mail gerade bearbeitet wird oder schon bearbeitet wurde. Das anzeigen der Icons ist kein Problem. Nur das erstellen des Items im aktuellen Document.

[Axel]

Dann gehört der Code in die Events der Mail-Maske und dann funktioniert auch der Code von Ingo.

Flag beim Lesen: Postopen-Event
Flag beim Schließen: QueryClose-Event


Axel

[grandmetre]

Jo, macht Sinn.

Leider kommt der Fehler immernoch beim öffnen des Documents.

[Axel]

Wie sieht der Code jetzt aus? Wo hast du ihn genau eingefügt? Was sagt der Debugger zur Variablenbelegung?


Axel

[grandmetre]

Ich habe im "Sub Postopen(Source As Notesuidocument)" nach dem letzten End If und vorm End SUB den Oben angegeben Code eingefügt. Der Debugger gibt keinen Fehler zurück. Nur beim öffnen des Memos kommt dann die Fehlermeldung: "Object variable not set". Ich habe nicht die leiseste Ahnung auf welche Variable sich die Fehlermeldung beziehen könnte. Ich habe es auch schon mit dem Source-Parameter versucht. Leider mit dem gleichen Ergebnis.

[DerAndre]

Bau noch ein Fehlerhandling ein, dann siehst Du, wo es klemmt.

[Axel]

Ich habe im "Sub Postopen(Source As Notesuidocument)" nach dem letzten End If und vorm End SUB

 

Gibt's da noch mehr Code? Du musst schon mehr Infos liefern.

Meine Kristallkugel befindet sich zur Zeit im Urlaub. Mehr Input -> mehr Output !!!

Axel

[grandmetre]

Code

	Dim ws As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Dim doc As NotesDocument
	
	Set uidoc = ws.CurrentDocument
	Set doc = uidoc.Document
	
	Call doc.ReplaceItemValue("Status", "processing")
	Call doc.Save( True, False , False )

Halt das, was oben angegeben ist.

Der Rest gehört zum Standart-Template und hat mit diesen Zeilen nichts zu tun.

[Driri]

Das Event liefert Dir ja schon ein UIDocument mit, da brauchs Du das nicht extra noch deklarieren.

Versuchs mal so :

Dim doc As NotesDocument
Set doc = Source.Document
Call doc.ReplaceItemValue("Status", "processing")
Call doc.Save( True, False , False )

[Axel]

André hat es ja auch schon mal geschrieben. Bau mal ein Fehlerbehandlung ein. dann solltest du sehen wo's klemmt.

Bist du dir ganz sicher, dass der Fehler von deinem Code kommt? Der sieht nämlich sauber aus.

Axel

[grandmetre]

Das Event liefert Dir ja schon ein UIDocument mit, da brauchs Du das nicht extra noch deklarieren.

Versuchs mal so :

Dim doc As NotesDocument
Set doc = Source.Document
Call doc.ReplaceItemValue("Status", "processing")
Call doc.Save( True, False , False )

Hab ich versucht. Leider nicht besser geworden :-(

Wie realisiert man am besten eine Fehlerbehandlung? Gibt es da bei Lotus-Script spezielle Klassen für oder realisiert man das mit textausgaben?

[DerAndre]

Fehlerbehandlung

[grandmetre]

Ich habe gerade den debugger gefunden :-). So wie es aussieht schmeißt der Teil, um den es gerade geht keine Fehlermeldung. Diese wird vorm Ausführen des Postopen ausgegeben. Was wird denn direkt davor ausgeführt?

[Axel]

Der Queryopen-Event und die Initialized-Events der Felder.

Suche in der Designer-Hilfe mal nach "Event sequencing". Da ist beschrieben welche Events in welcher Reihenfolge ausgeführt werden.

Axel