Option Explicit

'=========================================================================
' Prevents Outlook 2010 no-subject warning message
' (c) Peter Marchert -http://www.outlook-stuff.com
' 2010-08-31 Version 1.1.1
'=========================================================================

Private WithEvents colInspectors As Outlook.Inspectors

Private Sub Application_Startup()

Set colInspectors = Outlook.Inspectors

End Sub

Private Sub colInspectors_NewInspector(ByVal Inspector As Inspector)

Dim objItem As Object

On Error GoTo ExitProc

Set objItem = Inspector.currentItem

If InStr(LCase(objItem.MessageClass), "ipm.appointment") > 0 Then
If objItem.MeetingStatus = 0 Then GoTo ExitProc

End If

If objItem.EntryID = "" Then
If objItem.Subject = "" Then objItem.Subject = " "
If objItem.Location = "" Then objItem.Location = " "

End If

ExitProc:

Set objItem = Nothing
Set Inspector = Nothing

End Sub

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

On Error Resume Next

Item.Subject = Trim(Item.Subject)
Item.Location = Trim(Item.Location)

End Sub

Private Sub Application_Quit()

Set colInspectors = Nothing

End Sub