bin jetzt soweit, das alles funktioniert, nur mein im backend editiertes dokument (unten doc) wird nach dem erstellen nur nach dem refresh angezigt! ich werd jetzt wohl mal das mit dem "NotesUIWorkspace.EditDocument(total, viele, parameter
)" versuchen und dann weiter sehen... hier noch mal mein code, falls er euch intressiert!
Sub Initialize
Dim uidoc As notesuidocument
Dim session As notessession
Set session = New notessession
Dim item As notesitem
Dim item2 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 check As String
Dim ready As Variant
Dim problem As String
Set uidoc = workspace.currentdocument
Dim temp As String
Dim view As notesview
Dim schnellstart As String
Dim aktivid As String
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)
Print collection.count
Set rtitem = New NotesRichTextItem(doc, "Link")
Call rtitem.AppendDocLink( uidoc.document, "Dokumentenlink")
Call rtitem.AppendText(" " )
Call rtitem.AppendText(Problem)
Call doc.Save( False, False )
End If
End Sub
meld mich morgen nochmal!!
danke für eure hilfe!!
gruß björn!
