In the CratchitEmailLibrary -> sEmailReply sub-routine, I added the following code into the 'Non-Internet' style reply area. The trick was the "rtitem.Update".. without it the RT would NOT appear…
Call replydoc.RemoveItem("Body")
Set org_rtitem = currdoc.GetFirstItem("Body")
Set rtitem = New NotesRichTextItem(replydoc,"Body")
Set rtstyle = session.CreateRichTextStyle
rtstyle.Bold = True
Set rtcolor = session.CreateColorObject
rtcolor.NotesColor = COLOR_DARK_GREEN
Call rtitem.AddNewline(1)
Call rtitem.BeginSection("—- Original Message —-", rtstyle, rtcolor, True)
'This gives us a basic reply header….
Call rtitem.AppendText(|From: "| & currdoc.ClientContact(0) & |" <| & currdoc.From(0) & |>| )
Call rtitem.AddNewline(1)
Call rtitem.AppendText(|Sent: | & Cstr(currdoc.PostedDate(0)) )
Call rtitem.AddNewline(1)
Call rtitem.AppendText(|To: | & Join(currdoc.SendTo,", ") )
Call rtitem.AddNewline(1)
If currdoc.CopyTo(0) <> "" Then
Call rtitem.AppendText(|Cc: | & Join(currdoc.CopyTo,", ") )<br/>
Call rtitem.AddNewline(1)<br/>
End If
Call rtitem.AppendText(|Subject: | & currdoc.Subject(0) )
Call rtitem.AddNewline(2)
Call rtitem.AppendRTItem(org_rtitem)
Call rtitem.EndSection
Call rtitem.Update