Suppressing "No Subject" warning in Outlook 2010

billfinn

Board Regular
Joined
Jun 7, 2018
Messages
114
Office Version
  1. 2016
Platform
  1. Windows
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
.
Code:
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
 
Last edited:

Excel Facts

Excel motto
Not everything I do at work revolves around Excel. Only the fun parts.
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
 
Upvote 0

Forum statistics

Threads
1,213,510
Messages
6,114,040
Members
448,543
Latest member
MartinLarkin

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top