Chris_Bottomely provided the following code to paste into ThisOutlookSession in VBA to detect the absence of an attachment in a message when the word attach, attachment etc.. was mentioned in the message. It works great on Outlook 2010, but not on Outlook 2007. Can anyone suggest why?
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If InStr(Item.Body, "attach") > 0 Then
If Item.Attachments.Count < 1 Then
If MsgBox("The message body mentions an attachment, but none found." & Chr(13) & Chr(10) & "Send anyway?", vbYesNo + vbDefaultButton2 + vbExclamation, "Attachment Missing") = vbNo Then
Cancel = True