I'll post the code shortly.  

Just found out that Outlook cannot print these emails
either.  Thanks.  

Dmitry,

The following are two portions of the code I have.  The
top one is used to send out an email using the RTFbody
off SafeMailItem.  The 2nd part is where the error
actually happens.

' The code to "forward" an email
' to a specified email account
   
   ' Get mail item by mail ID
   Set oMapiMail = oNsp.GetItemFromID(sMailID)
   
   ' Forward method will change mail
   ' subject and mail body
   Set oMapiMailNew = oMapiMail.Forward
   
   ' Get the same formatting
   With oMapiMailNew
       .Subject = oMapiMail.Subject
       If oMapiMail.HTMLBody = vbNullString Then
           bRdp = True     ' Use the RTF property of
                           ' the Redemption Safe Mail
                           ' Item
       Else
           bRdp = False    ' Use the HTML property of
                           ' the Outlook Object Mapi
                           ' Mail Item
           .HTMLBody = oMapiMail.HTMLBody
       End If
       .MessageClass = CustomMessageClass
       .Save               ' Save the cloned mail item
                           ' to avoid outlook object
                           ' overwriting redemption
       sMailID = oMapiMailNew.EntryID
   End With
   
   ' Re-cycle the object
   Set oMapiMailNew = Nothing
   Set oMapiMailNew = oNsp.GetItemFromID(sMailID)
   
   ' Add the mailbox as the only recipient
   Set oMapiRecipient = oMapiRecipients.Add("bingo")
   With oMapiRecipient
       .Type = 1       ' 1: olTo
   End With
   
   ' Populate the hidden fields
   With oMapiMailNew
       .UserProperties("abc") = "abc"
       
       ' To keep the RTF formatting of the
       ' original mail item
       If bRdp Then
           Set oRdpMail = CreateObject
("Redemption.SafeMailItem")
           Set oRdpMailNew = CreateObject
("Redemption.SafeMailItem")
           ' Original mail item
           oRdpMail.Item = oMapiMail      
           ' Clone mail item
           oRdpMailNew.Item = oMapiMailNew
           ' Get the original RTF formatting
           oRdpMailNew.RTFBody = oRdpMail.RTFBody  
'            oRdpMailNew.Send ' I tried this as well
       End If
       .Send
   End With

'--------------------

' After sending the email, the following code is
' used on the receiving side
' to operate on the email
' Reply, ReplyAll, Forward and Print operations
' in VB app will all fail
' an unknow error generates
' Print will fail even in Outlook but Reply,
' ReplyAll and Forward work fine
' in Outlook on the same email

   Set oMapiMailReply = oMapiMail.ReplyAll
   Set oMapiMailForward = oMapiMail.Forward