Can you refresh a document in the Notes client after changing a rich text field?

What you have to do is:
1) set the SaveOptions field to "0"
2) save using uidoc.save (doesn't really save because of the SaveOptions field)
3) get a reference to the original document using uidoc.Document
4) close the document in the Notes client using uidoc.Close
5) use ws.EditDocument to re-open the document in edit mode

Here's a code snippet for doing this:

  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  Dim doc As NotesDocument
  Set doc = uidoc.Document
  Call doc.ReplaceItemValue("SaveOptions", "0")
  uidoc.Save
  Set doc = uidoc.Document
  uidoc.Close
  Call workspace.EditDocument(True, doc)
  Call doc.RemoveItem("SaveOptions")

Applies to Notes Versions: 5 6