ItemSend stops working
 

I've written an ItemSend macro that works great, but occasionally it completely stops responding when an email is sent. Sometimes it's when I first launch Outlook, so it doesn't seem to be a problem that necessarily happens after use. The first part of the macro is very simple, and it fails as well when this happens:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)


If Len(Trim(Item.Subject)) = 0 Then
If MsgBox("This message has no subject. Are you sure you want to send this message?", vbYesNo + _
vbQuestion + vbMsgBoxSetForeground, "Send Message") = vbNo Then
Cancel = True
End If
End If

The macro is certified with selfcert.exe so I don't think it's a security problem. It's also pretty rare, but when it happens it causes problems.

Any help will be greatly appreciated!

EggHeadCafe - Software Developer Portal of Choice
Job Interview Tips
http://www.eggheadcafe.com/tutorials...view-tips.aspx