PC Review Forums Newsgroups Microsoft Outlook Microsoft Outlook Program Addins Problems with Redemption & RTF

Reply

Problems with Redemption & RTF

 
Thread Tools Rate Thread
Old 04-07-2008, 09:24 PM   #1
Artauran
Junior Member
 
Join Date: Jul 2008
Posts: 1
Trader Rating: (0)
Default Problems with Redemption & RTF


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.

Quote:


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

Artauran is offline   Reply With Quote
Reply



Thread Tools
Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off