Liebes Forum,
ich habe folgendes Problem mit meinem Skript, mit dem ich Dokumente neu zuordnen möchte.
Bei der Zeile
response.form = "Unterpunkt" bekomme ich die Meldung "Variant does not contain an object".
Wie kann das sein, die Zeile vorher hat doch noch geklappt ?
Zum Verständnis:
Die DocId des künftigen Elterndokuments steht in einer Environment Variablen. Die Ansicht DocId listet alle Dokumente sortiert nach Id.
Ganz herzlichen Dank im voraus
Marion
_____________________________
Hier der Code
Sub MakeResponse
' Ordnet gewähltes Dokument einem anderen zu
Dim ws As New Notesuiworkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim parent As NotesDocument
Dim response As NotesDocument
Dim item As NotesItem
Dim text As String
Dim uiview As notesuiview
Dim view As NotesView
Dim viewid As NotesView
Set db = session.Currentdatabase
Set viewid = db.getview("viewDocId")
Set uiview = ws.Currentview
' Elterndokument
Key = session.GetEnvironmentString("DocID")
Set parent = viewid.GetDocumentByKey(Key)
' Bilden der Document Collection
Set view = uiview.view
Set dc = uiview.Documents
Set response = dc.GetFirstDocument()
If dc.count > 0 Then
' Loop durch Dokumente
For j = 1 To dc.count
If response.IsResponse Then
' Zuordnen des Dokuments zum gewünschten Elterndokument
Call response.MakeResponse( parent )
reponse.Form = "Unterpunkt"
Call reponse.Save( True, True )
Else
Msgbox "Dokument kann nicht zugeordnet werden, da Hauptdokument",,"Fehler"
End If
Set response = dc.GetNextDocument(response)
Next
' Ende Loop Dokumente
Else
Msgbox "Sie müssen ein Dokument auswählen",,"Hinweis"
End If
End Sub
