Email Subject

[PATTANAM]

Hi Team,

Could you please help me below requested.

Whenever I send mail to all without subject it should popup the error message

So that I can send mail to all with subject only.

Please help me

THank you!

Best Regards Mahesh

[jaslake]

Hi PATTANAM

Google on "require subject line in outlook"...you'll get many hits...this is but one.

Option Explicit
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim strSubject As String
    Dim Prompt As String
    strSubject = Item.Subject
    If Len(Trim(strSubject)) = 0 Then
        Prompt = "Subject is Empty. Are you sure you want to send the Mail?"
        If MsgBox(Prompt, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check for Subject") = vbNo Then
            Cancel = True
        End If
    End If
End Sub