Domino 9 und frühere Versionen > ND7: Entwicklung

Item in Document hinzufügen

(1/6) > >>

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 )
--- Ende Code ---

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:

--- Zitat von: Driri am 03.06.08 - 11:00:13 ---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 )



--- Ende Zitat ---

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.

Navigation

[0] Themen-Index

[#] Nächste Seite