Hi
I tested your code (with minor modifications to use html code found in the memo field of a table I created) and it worked fine (the html code was included in the body of the message) I ran this from the same directory where I installed redemption:

Set Default To c:\programnotes\redemption  && testing purposes only
Use c:\programnotes\innertext              && testing purposes only
Go Top                                     && ""

Local oOutLook, oItem, oSafeItem, oNameSpace

oOutLook = Createobject('Outlook.Application') && open outlook
oSafeItem = Createobject('Redemption.SafeMailItem') && open redemption

oNameSpace = oOutLook.GetNameSpace('MAPI')
oNameSpace.Logon

oItem = oOutLook.createitem(0) && create new mail message
oSafeItem.Item = oItem && create safe item object

With oSafeItem
	.Recipients.Add("someone@somewhere.com") && substituted my email addr	
	.Recipients.ResolveAll 
	.subject = "Test Email with Redemption"
	.HTMLBody = innertext.chtml	&& testing purposes only
	.Save()
	.Send()
Endwith

Tracy