I believe the solution is either marking the field on the form as pass-through, or applying the passthrough style to the item as you populate it - I do this to put multiple (albeit small) views on a form:
If doc.HasItem("comments") Then
Call doc.RemoveItem("comments")
End If
Set dest = doc.CreateRichTextItem("comments")
Set vec = view.GetAllEntriesByKey(doc.UniversalID)
Jake,
I believe the solution is either marking the field on the form as pass-through, or applying the passthrough style to the item as you populate it - I do this to put multiple (albeit small) views on a form:
If doc.HasItem("comments") Then
Call doc.RemoveItem("comments")
End If
Set dest = doc.CreateRichTextItem("comments")
Set vec = view.GetAllEntriesByKey(doc.UniversalID)
Set ve = vec.GetFirstEntry
While Not (ve Is Nothing)
Set tdoc = ve.Document
Set src = tdoc.GetFirstItem("body")
Set nn = New NotesName(ve.Document.myCreator(0))
Call dest.AppendStyle(myPassThroughStyle)
Call dest.AppendText(|<div class="comment"><b>|)
Call dest.AppendText(nn.Abbreviated & " - " & ve.Document.Created)
Call dest.AppendText(|</b><br /><br />|)
Call dest.AppendRTItem(src)
Call dest.AppendText(|</div>|)
Set ve = vec.GetNextEntry(ve)
Wend