Thread: Subject Line Alert - Outlook 2007

Is there a way to block and give an alert if sending an email if the subject line has a series of equal to or greater than 5 digits?

Paste the following into the ThisOutlookSession tab in the VBA editor (Alt f11).

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim MySubject As String
Dim N As Long
MySubject = Item.Subject
For N = 1 To Len(MySubject) - 4
    If IsNumeric(Mid(MySubject, N, 5)) = True And Len(Trim(Mid(MySubject, N, 5))) = 5 Then
        MsgBox "Subject contains at least 5 adjacent digits"
        Cancel = True
    End If
Next N
End Sub