I found this other post:
which allows an Outlook Appointment to open a hyperlink when that Appointment is activated.
What I'd like to do is open an Excel spreadsheet instead of the hyperlink. Is this possible to do?
I've attatched the code that I'm using, which I have running.
'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
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
Set objAppointment = Nothing
Set objShell = Nothing
'Macro ends here