We value your feedback.
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.
|Merging two companies and email challenges. Routing email between two companies as well as to a new additional shared domain.||3||61|
|vba to change Outlook so all emails from SuperDomain.com are red in current Inbox view in 10 client computers.||5||30|
|Show Ruler in Outlook 2010 STILL NOT SHOWING!||4||39|
|User Account issue||6||40|