- Open your Outlook,
- Press Alt+F11. This opens the Visual Basic Editor and then Press Ctrl+R
which in turn open Project-Project 1 (left side)
- On the Left Pane, one can see "Microsoft Outlook Objects" or "Project1",
expand this. Now one can see the "ThisOutLookSession".
- Double click on "ThisOutLookSession". It will open up a Code Pane on the
right hand side.
- Copy and Paste the following code in the right pane (Code Pane) and save
it Private Sub Application_ItemSend(ByVal Item As Object,
Cancel As Boolean)
Dim strSubject 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