Suppressing "No Subject" warning in Outlook 2010

[billfinn]

Hello!
I had a macro in Outlook that was working perfectly well in suppressing the "No Subject" warning. Due to inferior hardware here at work the only way I can be sure my work is truly saved is to email it to my home email. I do this 50-60 times a day when I am on a project. For some reason the warning has reappeared. I would really like to once again suppress the warning.
This is the macro I've been using. I would very much appreciate any suggestions. Clicking "Send Anyway" 50 times a day is not my idea of a good time...
Thanks much,
Bill
.

Option Explicit'======================================================================
' Prevents Outlook 2010 no-subject warning message
' (c) Peter Marchert -//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

 

[James006]

Hello,

A solution is proposed by Extend Office :

https://www.extendoffice.com/documents/outlook/1680-outlook-turn-off-disable-no-subject-warning.html

HTH

 

[billfinn]

James006,
Thanks much, but the macro listed in the link doesn't seem to work for me either. I had been using the macro I listed for several months with no issue but it is suddenly not working. The Macro setting in the Trust Center is set correctly.
I appreciate your response.
Thanks,
Bill