I got irritated with the warning dialog that says "no location has been specified" whenever I send a meeting invite in Outlook 2007 with blank location. There seems to be no way to turn this warning off, so I thought maybe if I write VBA to automatically set the location to " " (single space) whenever I create a new appointment, that would be a reasonable work around.
I tried the following code. However, it only seems to be triggered when the user saves changes to the new appointment. I want to catch an event when the new appointment dialog first appears, e.g. when the user first double clicks in the Calendar to create a new appointment.
Of course, any suggestions for alternative approaches to solving the original problem are very welcome too!
Private WithEvents olkCalendar As Items
Private Sub Application_Quit()
Set olkCalendar = Nothing
Private Sub Application_Startup()
Set olkCalendar = Session.GetDefaultFolder(olFolderCalendar).Items
Private Sub olkCalendar_ItemAdd(ByVal Item As Object)
If Item.Location = "" Then
Item.Location = " "