dann wieder im Backend weiterverwenden und die Änderungen des RTFeldes behalten. Hat das schon mal jemand gemacht?
Ich bekomme das soweit hin, das das im Backend erstellte Dokument mit dem RT-Feld in der Dialogbox angezeigt wird. Alle Änderungen die in anderen Feldern passieren habe ich auch in der aufrufenden Funktion zur Verfügung.
Aber wenn ich Änderungen im RT-Feld vornehme werden die nicht übernommen.
' build a special document that is deleted afterwards to get the rtfield editable
Set showmaildoc = current.CreateDocument
Set item = showmaildoc.ReplaceItemValue("Form","ShowMemo")
Set item = showmaildoc.ReplaceItemValue("SendTo", sendto)
Set item = showmaildoc.ReplaceItemValue("CopyTo", copyto)
OK =itemtextexists(linkto,itemsubjectname)
If ok = True Then
Set me_item = LinkTo.GetFirstItem(itemsubjectname)
If subject = "" Then
subject = me_item.Text
Else
subject = subject + " " + me_item.Text
End If
End If
showmaildoc.Subject = subject
Set rtitem = showmaildoc.CreateRichTextItem( "Body" )
OK =itemtextexists(linkto, itembodyname)
If ok = True Then
' create the rtitem using the item from the given document
Set me_item = LinkTo.GetFirstItem(itembodyname)
If me_item.Type=RICHTEXT Then ' RICHTEXT
' copy the complete rtitem
Call rtitem.AppendRTItem( me_item )
Else
Forall v In me_item.Values
Call rtitem.AppendText( v )
Call rtitem.addnewline(1)
End Forall
End If
End If
' Copy
If message <> "" Then
Call rtitem.AppendText( message )
End If
If embedlink = True Then
Call rtitem.AppendDocLink( LinkTo,"VAZ")
End If
Call showmaildoc.Save(True,False)
' show the mail to the user before sending it so that the user can change the Email. The Mail is send even if the users escapes the Dialogbox
' there is a dim and i hope that this is not messing it all up
Dim wksp As New notesuiworkspace
ok = wksp.dialogbox("ShowMemo",True,True,True,True,False,False,"",showmaildoc)
Set usemaildoc = current.GetDocumentByUNID(showmaildoc.UniversalID)
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Dim me_doc As NotesDocument
Set me_doc = source.document
Call me_doc.Save(True,False)
End Sub
abgespeichert. Er zieht aber leider die Änderungen im RT Feld nicht mit.