RSSUse this macro to disable the blank subject warning in Outlook 2010.
If you are looking for a macro to warn you that the subject is blank in earlier versions of Outlook, see Macro to Warn Before Sending a Message with a Blank Subject.
Please note: If you need help with this macro, please use the comments section below.
To use, open the VBA Editor using Alt+F11 and paste this into ThisOutlookSession.
Reprinted with permission of Peter Marchert
Option Explicit '========================================================================= ' Prevents Outlook 2010 no-subject warning message ' (c) Peter Marchert -http://www.outlook-stuff.com ' 2010-07-15 Version 1.0.0 ' 2010-07-19 Version 1.0.1 ' 2010-08-01 Version 1.1.0 ' 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
