Feldwerte per Agent einlesen

    Hallo Notesgemeinde,


    ich habe ein Problem. Ich möchte per Agent einen Wert aus einem Dokument einlesen, dann wird dieser quasi bearbeitet, und anschließend möchte ich ihn dann wieder zurückgeben. Das soll dann mit allen Dokumenten in der Ansicht geschehen.
    Ich habe das Script wir folgt aufgebaut.


    Dim workspace As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim strComputer As String
    Set uidoc = workspace.CurrentDocument


    strComputer = uidoc.FieldGetText( "IPAddress" )



    'Ab hier läuft eine SubFunction, die den Wert bearbeiten soll - funktioniert auch soweit.


    Anschließend soll der Wert in das Dokument zurückgegeben werden.


    Call doc.FieldSetText("Statusooot", "Offline")


    _________---
    Leider bekomme ich immer den Fehler "Object Variable not Set", wenn ich den Agenten starte.


    Weise ich strComputer einen festen Wert zu (192.168.0.1) und ersetze "Call doc.Field....." durch eine Messagebox, funktioniert der Agent reibungslos.


    Hat jemand eine Idee


    Danke im Voraus.


    Gruß
    Christian

    natuerlich geht er dann problemlos drueber....es fehlt auch das Object doc. Hast Du wohl vergessen zu erzeugen. Da Du wahrscheinlich nicht das aktuelle Dokument bearbeiten willst - wie es Dir Patri vorschlaegt - empfehle ich eine Schleife ueber Deine Ansicht.
    Dafuer muesstest Du das hier noch an der Stelle
    'Anschließend soll der Wert in das Dokument zurückgegeben werden.
    einbauen.



    Dim s As New notessession
    Dim db As notesdatabase
    Set db = s.currentdatabase
    Dim v As notesview
    Set v = db.getview("Ansichtname")
    Dim doc As notesdocument
    Set doc = v.getfirstdocument
    While Not(doc Is Nothing)
    doc.Statusooot ="Offline"
    doc.save true,true
    Set doc = v.getnextdocument(doc)
    Wend