Hiiiilfe, Agent läuft nicht, Scriptfehler !

[Gerhard]

Ich bekomme dauernd die Fehlermeldung

Variant does not contain an object !

Der Debugger bleibt bei der Zeile test= stehen !

Hier der Code des Agenten:
Lotus Notes Datenbankübersicht - Erstellt um 09:41:32 am 20.04.2004
Agent-Informationen
Name:   zeige Sparte
Letzte Änderung:   20.04.2004 09:41:41
Kommentar:   [Nicht zugewiesen]
Gemeinsam genutzter Agent:   Nein
Typ:   LotusScript
State:   Aktiviert
Auslöser:   Manuell aus dem Menü 'Aktionen'
Wird ausgeführt auf:   Ausgewählte Dokumente
LotusScript-Code:
Option Public
'Dim ses As New notessession
'Dim ws As New NotesUIWorkspace
Dim db As notesdatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim view As notesview
Dim test  As String
Sub initialize
   'test = ""   
   Set db = ses.currentdatabase
   Set view = db.getview("(Kopie von Alle1)")
   Set ws = New NotesUIWorkspace
   Set uidoc = ws.currentdocument
'   Set doc = uidoc.document
   test= uidoc.FieldGetText("sparte")   
   'Print ("Hallo ..."+doc.sparte(0))
End Sub


Ich möcht eigentlich nur den Inhalt des Feldes Sparte anzeigen, sonst nix und nicht einmal das krieg ich hin, grummel !  

Vielleicht kann mir jemand einen Tip geben ?

[Glombi]

Es gibt keine NotesSession, da auskommentiert. Also kracht es bei
Set db = ses.currentdatabase

Andreas

[Driri]

Und zwei Zeilen drunter wirds wieder knallen, weil die Definition von ws ebenfalls auskommentiert ist.

[Gerhard]

Sorry, tut mir leid, ich hab da was weggeschickt was nicht ok war !
Das hab ich aber erst später bemerkt.

Tut mir echt leid !

Bin mittlerweile schon etwas weitergekommen, funktioniert aber noch immer nicht so wie ich will !

Danke einstweilen !

[Driri]

Sag doch mal, was nicht funktioniert, dann können wir dir vielleicht helfen  

P.S. : Plus Code natürlich  

[Gerhard]

Hallo zusammen !

Hab schon alles im Griff, hab mich durchgekämpft !

Danke für die Hilfe !