NotesRichTextStyle.PassThruHTML Issue

HCL Domino Domino Forum
1

I’m having an issue with NotesRichTextStyle.PassThruHTML = True. It seems that this isn’t being passed as the rendered rich text isn’t marked as Pass-Thru HTML. No errors are returned, the field is being populated with the correct values and the NotesRichTextStyle.Bold = False is working properly which is called right before NotesRichTextStyle.PassThruHTML = True. Any ideas on what I’m doing wrong?

Here’s the sub from the class I’m using:

Public Sub addAllData(valArray As Variant)

	Dim i As Integer

	Dim cell As Integer

	'Check if a table exists in the field

	If Me.tableExists = False Then

		If Me.addTable = False Then

			Msgbox "Table does not exist and cannot be added!",0,"E R R O R"

			Exit Sub

		End If

	End If

	

	'Set the text style

	rtStyle.Bold = False

	rtStyle.PassThruHTML = Me.passthru

	Call rtItem.AppendStyle(rtStyle)

	

	'Loop thru each value of the array and populate each cell of the table

	For i = Lbound(valArray) To Ubound(valArray)

		If i = Lbound(valArray) Then

			'Get the first column

			Call rtNav.FindFirstElement(RTELEM_TYPE_TABLECELL)

		Else

			'Get the next column

			Call rtNav.FindNextElement(RTELEM_TYPE_TABLECELL)			

		End If

		'Populate each column with the values from the array

		Call rtItem.BeginInsert(rtNav)

		Call rtItem.AppendText(Cstr(valArray(i)))

		Call rtItem.EndInsert

	Next

End Sub