@glombi:
Deine Zeilen machen keinen unterschied, ist das gleiche das ich mache, nur das die variablen anders heissen!
danke trotzdem!!!
hier noch mal der komplette quelltext ums klarer zu machen!
Sub Initialize
Dim uidoc As notesuidocument
Dim session As notessession
Set session = New notessession
Dim item As notesitem
Dim workspace As notesuiworkspace
Dim rtitem As notesrichtextitem
Dim db As NotesDatabase
Set workspace = New notesuiworkspace
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim problem As String
Set uidoc = workspace.currentdocument
Dim temp As String
Dim view As notesview
Dim schnellstart As String
Dim aktivid As String
Dim aktivdoc As notesuidocument
schnellstart = uidoc.fieldgettext("schnellstart")
aktivid = uidoc.fieldgettext("aktiv_id")
problem = uidoc.fieldgettext("DocTitel")
Call uidoc.save
If schnellstart = "J" Then
Set db = session.Getdatabase("OCS02/OCS GmbH", "aktiv\fridaakt.nsf", False)
Set view = db.getview ("ViewActionsUNID")
Call view.Refresh
Set collection = view.getalldocumentsbykey(aktivid)
Set doc = collection.GetFirstDocument()
Print collection.count
Call doc.Replaceitemvalue("CheckCall", "X")
Call doc.Replaceitemvalue("tmp_link", "X")
Call doc.Replaceitemvalue("CPart", Problem)
Set rtitem = New NotesRichTextItem(doc, "Link")
Call rtitem.AppendDocLink( uidoc.document, "Dokumentenlink")
Call rtitem.AppendText(" " )
Call rtitem.AppendText(Problem)
Call doc.Save( False, False )
Set aktivdoc = workspace.EditDocument (True, doc, False) ' Hier öffne ich das vorher bearbeitet Backenddoc (doc)
Call aktivdoc.save ' hier kommt der fehler!
Call aktivdoc.close
Call uidoc.save
Call uidoc.close
End If
End Sub
