Problem mit Doc.Responses

[Myron]

hallo leute

ich versuche gerade die antwortdokumente von der geöffneten maske mit notes script zu bekommen und es funkt nicht! die collection ist leer.. aber es gibt antwortdokumenten.. ganz bestimmt.

ich habe folgendes script geschrieben.. vielleicht hab ich etwas übersehen.

Sub Click(Source As Button)
   Dim db As NotesDatabase
   Dim ses As New NotesSession
   Dim wk As New NotesUIWorkspace
   Dim dc As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim uidoc As NotesUIDocument
   
   Set db = ses.CurrentDatabase
   Set uidoc = wk.CurrentDocument
   Set doc = uidoc.Document
   
   Set dc = doc.Responses
End Sub

grüße

[koehlerbv]

Wo steht denn der Code ? Ist doc überhaupt instantiiert ?

[Myron]

der code steht in einem geöffnetem dokument in einem button.
´
das doc bekomme ich durch

Set doc = uidoc.Document

und das uidoc habe ich durch

Set uidoc = wk.CurrentDocument

grüße

[koehlerbv]

Hm, wenn jetzt dc.Count = 0 ist, dann sieht es aber doch danach aus, dass es keine ResponseDocs gibt ... Mir fällt jedenfalls spontan kein Hinderungsgrund ein, warum Dein Code nicht funktionieren sollte.

Bernhard

[Myron]

am code liegt es offensichtlich nicht. es sind aber ganz sicher antwortdokumente zu diesem dokument vorhanden weil ich sie vorher erstellt habe. habe auch die id vom $Ref mit dem der Uid des hauptdokumentes verglichen. um nochmal sicher zu gehen aber das scheint ebenfalls zu passen..
da muss ich offensichtlich noch ein wenig suchen.

Grüße

[koehlerbv]

Kann es sein, dass in den DB-Properties das Verwalten der speziellen Antworthierarchie abgeschaltet wurde ?
Ansonsten fällt mir aber auch gar nix mehr ein ...

Bernhard

[Myron]

Hallo Bernhard

Genau das war's! Hab die Antworthierarchie unterstützen eingeschalten und die db komprimiert und schon gehts!
Auf das wäre ich sicher jetzt ewig nicht draufgekommen  

Vielen Dank
Grüße