This allows you to post a number of text fields into a single RT field. We use this to send information from a number of fields in a memo document.
You pass in the RTField, the title you want to display, the fieldname of the contents and the doc. The result is something along the lines of ...
FieldTitle1: Here are the contents
Obviously we loop this through all of the fields we require.
Sub AppendTextToBody(ritem As NotesRichTextItem, title As String, fieldname As String, doc As NotesDocument)
Dim session As New NotesSession
Dim rstyle As NotesRichTextStyle
Set rstyle=session.CreateRichTextStyle
Dim v As Variant
rstyle.Bold=True
rstyle.NotesColor=COLOR_BLUE
rstyle.FontSize=10
Call ritem.AppendStyle(rstyle)
Call ritem.AppendText(title)
Call ritem.AddNewLine( 1 )
rstyle.Bold=False
rstyle.NotesColor=COLOR_BLACK
rstyle.FontSize=10
Call ritem.AppendStyle(rstyle)
v = doc.GetItemValue( fieldname)
ForAll x In V
Call ritem.AppendText(x)
End ForAll
Call ritem.AddNewLine( 2 )
End Sub
No comments:
Post a Comment