Hello,

I am no VBA expert but I put together the following Macro to send a email
composed in Outlook using a icon on the Outlook 2007's Quick access tool
bar, using our Watchguard XCS 170 PostX encryption service's. I would
really like to have the " Encrypt " added to the end of the users subject
line text. What is the easy way of doing this. We have to have the word
Encrypt in the subject line for the device to send the message Encrypted.
It does not matter where in the subject line this is I just want it
inserted at the end of the subject text.

This Macro changes the email subject to the following

Original Subject: I have sent you your statement for this month.
Macro Subject: Encrypt I have sent you your statement for this
month.

Sub encypt()
Set objItem = Outlook.Application.ActiveInspector.CurrentItem
objItem.Subject = "Encrypt " & objItem.Subject
objItem.Send
End Sub

Is there any way to move the "Encypt" to the end of the subject line
instead??

Thanks Everyone

______________________________________
Posted from http://outlook-center.com
Outlook forums, articles, tips.