Am 3 May 2006 23:24:20 -0700 schrieb kaiser:

Ok. All you need is this:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As
Boolean)
If Trim(Item.Subject) = vbNullString Then
MsgBox ("There is no subject - enter a subject and try again")
'somehow stop the email from going but dont close the email
Cancel=True
End If
End Sub

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --


Okay - thanks

I have this in the modules section

Private Sub Application_Startup()
Set m_colInspectors = Application.Inspectors
End Sub



and this in the ThisOUtlookSession


Option Explicit
Private WithEvents m_colInspectors As Outlook.Inspectors
Private WithEvents CurrentInspector As Outlook.Inspector





Private Sub Application_ItemSend(ByVal Item As Object, Cancel As
Boolean)
If TypeOf Inspector.CurrentItem Is Outlook.MailItem Then
If Item.Now = vbNullString Then
MsgBox ("There is no subject - enter a subject and try again")
'somehow stop the email from going but dont close the email
End If
Set CurrentInspector = Inspector
End If
End If

End Sub

Private Sub Application_Startup()
Set m_colInspectors = Application.Inspectors
End Sub


Private Sub CurrentInspector_Activate()
Dim oMail As Outlook.MailItem
If Len(UserForm1.SelectedSubject) Then
Set oMail = CurrentInspector.CurrentItem
oMail.Subject = UserForm1.SelectedSubject
End If
Set CurrentInspector = Nothing
End Sub


Private Sub m_colInspectors_NewInspector(ByVal Inspector As
Outlook.Inspector)
If TypeOf Inspector.CurrentItem Is Outlook.MailItem Then
If Inspector.CurrentItem.EntryID = vbNullString Then
UserForm1.SelectedSubject = vbNullString
UserForm1.Show
Set CurrentInspector = Inspector
End If
End If
End Sub




Thanks