putinFolder => Named product object does not exist

[Franco]

Hallo Forum,

ich habe ein Problem bei dem ich nicht mehr weiterkomme.
Ich erstelle ein Dokument das ich mit einer Reihe von Werten fülle und speicher.
Danach soll es via
Call docTest.putinfolder("test")   
in den Ordner test verschoben werden. Der Ordner existiert auch. Das Script des unteren Agenten (für Testzwecke) funktioniert auch einwandfrei.
An der entscheidenen Stelle im eigentlichen Code kommt es zum:
 Error 159: Named product object does not exist
Hat irgendjemand eine Idee was ich machen kann um das Dokument doch noch in den Ordner zu verschieben.
Einem Ordner müßte es doch gleich sein wie die Inhalte eines Dokumentes aussehen, oder nicht ?
Ich bin für jede Hilfe dankbar.


Vielen Dank im Vorraus,

Marco



Dieser Agent (für Testzwecke) funktioniert einwandfrei

Sub Initialize   
   On Error Goto trap
   Dim s As New notesSession
   Dim db As NotesDatabase
   Set db=s.currentDatabase
   Dim docTest As New NotesDocument(db)
   Dim vFolder As NotesView
   
   docTest.test="testnew"
   docTest.subject="brillant Bug"
   Call docTest.save(True,False)
   Set vFolder=db.getView("test")    
   If Not (vFolder Is Nothing) Then
      Messagebox "Ordner existiert"
      Call docTest.putinfolder("test")   
   Else
      Messagebox "Ordner nicht gefunden"
   End If
   Exit Sub
   
trap:
   Print Err
      
End Sub

[TMC]

Hi,

Du schreibst erst von der Fehlermeldung aber unten dann

Dieser Agent (für Testzwecke) funktioniert einwandfrei

Was heißt das? Poste doch mal den Code der *nicht* funktioniert und wo dieser Fehler auftritt. Also welche Zeile.

Generell solltest Du noch abfragen, ob die View auch ein Folder ist über isFolder in einer If - Anweisung.
putinfolder erstellt mit der Option true den Folder übrigens neu, wenn noch nicht existent.

Matthias

P.S. bitte zukünftig Entwicklungsthemen unter "R5 Entwicklung" posten, hier unter "Problem Forum" ist mehr der Admin-Bereich.