This code should do the trick. Unfortunately, there is no good method for testing this type of message, except for checking the subject line. A small performance boost is that the code only checks MailItems, not Appopintments, Tasks, etc. If your situation requires checking other olItems, just remove the "myItem.Class = olMail And " from the IF statement.
To trap the ItemSend event, you need to:
1. Place this code in the "ThisOutlookSession" module
2. Ensure Outlook's macro security is set to Medium or below
Let me know if you have questions or if something isn't clear.
Cheers,
James
[vba]
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim lnNumOfChars As Long
Dim myItem As MailItem
lnNumOfChars = 10
Set myItem = Item
If myItem.Class = olMail And Left(myItem.Subject, lnNumOfChars) = "Emailing: " Then
myItem.Subject = Mid(myItem.Subject, lnNumOfChars + 1)
End If
End Sub
[/vba]