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