Stopping email from being sent with blank subject

[Guest]

I have this Code that does not seem to work in OL2003 when placeing in
ThisOutlookSession

Private Sub Application_ItemForgot(ByVal Item As Object, Cancel As Boolean)

If Item.Subject = "" Then
MsgBox "Forgot Subject"
Cancel = True

End If


End Sub

This a code modified from sue.

I use word as my editor if that matters


End Sub

 

[Michael Bauer [MVP - Outlook]]

Funny modification, Outlook doesn't know an 'ItemForgot' event

The event is called ItemSend, that name cannot be changed. If you want to
have a procedure with that name (which is really useful if your code gets
more and more) then do it like this:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

ItemForgot Item, Cancel

End Sub

Private Sub ItemForgot(ByVal Item As Object, Cancel As Boolean)

If Item.Subject = "" Then
MsgBox "Forgot Subject"
Cancel = True
End If

End Sub

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Quick-Cats - Categorize Outlook data:
http://www.vboffice.net/product.html?id=2006063&cmd=detail&lang=en&pub=6

Am Fri, 20 Apr 2007 16:12:01 -0700 schrieb sfleck:

 

[Michael Bednarek]

I have this Code that does not seem to work in OL2003 when placeing in
ThisOutlookSession

Private Sub Application_ItemForgot(ByVal Item As Object, Cancel As Boolean)

If Item.Subject = "" Then
MsgBox "Forgot Subject"
Cancel = True

End If


End Sub

This a code modified from sue.

I use word as my editor if that matters

As Michael Bauer already pointed out, there's no such event as _ItemForgot,
and consequently that procedure will never be called.

Here's my variation that theme (3 lines):

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If Item.Class = olMail Then If Item.Subject = "" Then If MsgBox("Empty ""Subject:"" line. Send item?", vbYesNo + vbQuestion, "MB SendMail") <> vbYes Then Cancel = True
End Sub

 

[Guest]

So if I have another Private Sub Application_ItemSend(ByVal Item As Object,
Cancel As Boolean)

then I addit into this way?

 

[Michael Bauer [MVP - Outlook]]

You can only have one Application_ItemSend procedure. If you want to call
different functions from that then yes, add whatever you like.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Quick-Cats - Categorize Outlook data:
<http://www.vboffice.net/product.html?id=2006063&cmd=detail&lang=en&pub=6>

Am Wed, 25 Apr 2007 13:42:01 -0700 schrieb sfleck: