Hi,

Open outlook, press Alt+F11 and press Ctrl+R. Navigate to
"ThisOutlookSession" and paste the below code, save (Ctrl+S) and close VB
editor. close and reopen outlook, enable macros.

Code-------
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
strSubject$ = Item.Subject
If Len(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

--
Thanks,
Vivek


"Collector Dave" wrote:

How can I prevent Outlook 2007 from sending an email with a blank subject line?
Help Please!!