RTI Feld wird nicht angezeigt

[zyrak2003]

Hallo zusammen,

folgendes Script macht nicht ganz das was ich will. Am Schluß soll das RTI Feld angezeigt werden und das uiDokument weiter zu bearbeiten sein. Leider schließt sich das Dokument aber nur und bleibt auch geschlossen. Lasse ich das uidoc.close weg, wird das RTI Feld nicht angezeigt. Hat jemand einen Tipp für mich?

Sub Click(Source As Button)
   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim dbmail As notesdatabase
   Dim coll As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim rt As NotesRichTextItem
   
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Set uidoc=ws.CurrentDocument
   Set db=s.CurrentDatabase
   
   Set doc=uidoc.Document
   
   Servername="xx"
   DBName="xx.nsf"
   Set dbMail=s.GetDatabase(servername,DBName)
   Set docMail=dbMail.GetDocumentByUNID(doc.mailID(0))
   Set rt=New NotesRichTextItem( doc, "MailAngehaengt" )
   doc.Save True, False
   ws.ReloadWindow
   Call uidoc.save
   uidoc.EditMode=False
   flag= docmail.RenderToRTItem( rt)
   doc.Save True, False
   uidoc.close
   Set uidoc=ws.EditDocument(doc)
   
End Sub

[DAU-in]

Set notesUIDocument = notesUIWorkspace.EditDocument( [editMode] , [notesDocument] , [notesDocumentReadOnly] , [documentAnchor$] , [returnNotesUIDocument] , [newInstance] )


probiers mal mit 

Set uidoc=ws.EditDocument(,doc)

doc ist ja erst der 2. Parameter.

ausserdem würde ich

Call uidoc.Close(True)

nehmen, damit das Dokument sofort geschlossen wird.

Grüsse
 

Dau-in

[zyrak2003]

Suuuuuper, hat geklappt! Danke