Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
'Macro begins here Public WithEvents objReminders As Outlook.Reminders, _ WithEvents objCalendarItems As Outlook.Items Private Sub Application_Startup() Dim objNS As NameSpace Set objNS = Application.GetNamespace("MAPI") ' instantiate Items collections for folders we want to monitor Set objInboxItems = objNS.GetDefaultFolder(olFolderCalendar).Items Set objNS = Nothing Set objReminders = Application.Reminders End Sub Private Sub objReminders_ReminderFire(ByVal ReminderObject As Reminder) Dim objShell As Object, _ objAppointment As Object Set objShell = CreateObject("Wscript.Shell") If ReminderObject.Item.Class = olAppointment Then Set objAppointment = ReminderObject.Item 'Change the start interval on the next line as desired. The interval is in minutes. If DateDiff("n", Now, objAppointment.Start) <= 2 Then 'Change the triggering category name on the next line as desired. If objAppointment.Categories = "LaunchWeb" Then objShell.Run objAppointment.Location End If End If End If Set objAppointment = Nothing Set objShell = Nothing End Sub 'Macro ends here
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.