View Single Post
  #5  
Old April 21st 09, 08:13 PM posted to microsoft.public.outlook.program_vba
Bob Smith
external usenet poster
 
Posts: 34
Default Rule to set reminder if not set

Got it working, had to go to the assocciated meeting item.

"Bob Smith" wrote:

Sorry slight modification to that code, I should have copied and pasted.
Still have the issue.

Sub SetReminder(Item As MeetingItem)
If item.ReminderSet = False Then
msgbox item.subject
Item.ReminderMinutesBeforeStart = 15
Item.ReminderSet = True
Item.Save
End If
End Sub

"Bob Smith" wrote:

I'm going out of my mind here. I have a really simple rule that checks for
meeting requests as they arrive. If they have no reminder set, it's supposed
to set it. Seems simple enough. I even put a msgbox in for the subject to
ensure it actuallly fires. What am I missing, the reminder does not get set.

Sub SetReminder(Item As MeetingItem)
If ReminderSet = False Then
msgbox item.subject
Item.ReminderMinutesBeforeStart = 15
Item.ReminderSet = True
Item.Save
End If

Set Item = Nothing
End Sub

Ads