Private Sub Application_ItemSend _
(ByVal Item As Object, Cancel As Boolean)
Dim strMsg As String
Dim res As Long
If Item.Subject = "" Then
Cancel = True
strMsg = "Please fill in the subject before sending."
MsgBox strMsg, _
vbExclamation + vbSystemModal, "Missing Subject"
Item.Display
End If
End Sub
When i try to load the code into my macro the saved macro disappears. Maybe
I am not setting it up right. I think it has some thing to do with the
Private Sub verses just the Regular Sub.
I begin by going to tools, then i go down to macros which opens up a tab and
then i click on macros. It then gives me the option to name a macro with
limited names. Then I click creat and it takes me to Microsoft Visual basic
and it looks like this.
Sub s()
End Sub
If i try to change the sub it disappears from my macros. Ive tried using
the DoCmd option it it just gives me an error saying something is wrong with
the Sub s ().