Problems with Redemption & RTF

[Artauran]

Okay... I am trying to prepend all outgoing e-mails with a security identifier. I would prefer this to work with Outlook 2000 and newer but the biggest requirement is for it to work with Office 2007. Now I have 95% of this functioning, but there is an issue where everytime you send from rich text it doublespaces your autosignature. The other issue is if you right click a document and go to send as -> email, the prompt does not appear and gives an error about a modal dialogue. I have tried making the form non-modal but the results were unstable (the form keeps flickering behind the message).

Anyone have any ideas?

The form I have created is a simple, small form with 3 radio buttons designating the 3 security identifiers that can be chosen, with a send and cancel button once you've selected an identifier.

I am using the following code developed in VB6 using redemption .dll.

Private Sub oApp_ItemSend(ByVal Item As Object, _
Cancel As Boolean)

If TypeName(Item) = "MailItem" Then
Dim l As String
Dim sMailItem As Redemption.SafeMailItem
frmSecurityPrompt.chkCancel.Value = 0
frmSecurityPrompt.Show


Do While frmSecurityPrompt.Visible = True
DoEvents
Loop

If frmSecurityPrompt.chkCancel.Value = 1 Then
Cancel = True
End If
If Item.BodyFormat = 2 Then
sMailItem.Item = Item
If frmSecurityPrompt.Option1.Value = True And Cancel = False Then
sMailItem.RTFBody = "UNRESTRICTED | ILLIMITÉ" & Chr(13) & Chr(13) & sMailItem.RTFBody
ElseIf frmSecurityPrompt.Option2.Value = True And Cancel = False Then
sMailItem.RTFBody = "OFFICIAL USE ONLY | À USAGE EXCLUSIF" & Chr(13) & Chr(13) & sMailItem.RTFBody
ElseIf frmSecurityPrompt.Option3.Value = True And Cancel = False Then
sMailItem.RTFBody = "PROTECTED SENSITIVE | PROTÉGÉ - DÉLICAT" & Chr(13) & Chr(13) & sMailItem.RTFBody
End If
sMailItem.CopyTo (Item)
sMailItem = Nothing
Else
If frmSecurityPrompt.Option1.Value = True And Cancel = False Then
Item.HTMLBody = "UNRESTRICTED | ILLIMITÉ

" & Item.HTMLBody
ElseIf frmSecurityPrompt.Option2.Value = True And Cancel = False Then
Item.HTMLBody = "OFFICIAL USE ONLY | À USAGE EXCLUSIF

" & Item.HTMLBody
ElseIf frmSecurityPrompt.Option3.Value = True And Cancel = False Then
Item.HTMLBody = "PROTECTED SENSITIVE | PROTÉGÉ - DÉLICAT

" & Item.HTMLBody
End If
End If

End If
End Sub