agent bricht mit "Entry not found in index (4000)" ab. hier mal der code
tmpdoc und archivdoc werden oben gesetzt und sind auch vorhanden
'--------------------------- screenshot ---------------------------
On Error Goto testerror
Msgbox "vorher"
Call archivdoc.Save(True,False)
Set arch_rtitem = archivdoc.GetFirstItem( "arch_disp" )
If arch_rtitem Is Nothing Then
Set arch_rtitem = archivdoc.CreateRichTextItem( "arch_disp" )
End If
Msgbox "item erstellt"
Call tmpDoc.RenderToRTItem( arch_rtitem )
Call archivdoc.Save(True,False)
Msgbox "nachher"
testerror:
Msgbox ("Fehler in equest-Base (Archiv) " & Error & " (" & Err & ") in Zeile: " & Erl)
Exit Function
Ja, Deinen Code habe ich gesehen. Deswegen ist mir ja die Diskrepanz zur Designer-Hilfe aufgefallen.
Du schreibst:
Set arch_rtitem = archivdoc.GetFirstItem( "arch_disp" )
If arch_rtitem Is Nothing Then
Set arch_rtitem = archivdoc.CreateRichTextItem( "arch_disp" )
End If
Call tmpDoc.RenderToRTItem( arch_rtitem )
Call archivdoc.Save(True,False)
Falls die IF-Bedingung greift, ist "archivdoc" mit dem neuen RTItem "arch_rtitem" nicht gespeichert, bevor RendertToRTItem aufgerufen wird => "If the target rich text item is in a new document, you must save the document before calling RenderToRTItem."
Das RTItem muss/sollte IMMER zuerst gespeichert werden, bevor man mit LotusScript Methoden was hineinschreibt.