Rule to set reminder if not set
 

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

Rule to set reminder if not set
 

If Item.ReminderSet = False Then


--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"Bob Smith" wrote in message
...
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

Rule to set reminder if not set
 

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

Rule to set reminder if not set
 

Have you tried setting the reminder on the appointment?

Dim appt As Outlook.AppointmentItem
If Item.ReminderSet = False Then
MsgBox Item.Subject
Set appt = Item.GetAssociatedAppointment
With appt
.ReminderMinutesBeforeStart = 15
.ReminderSet = True
.Save
End With
End If

And if that doesn't work, maybe the solution is to use not a "run a script"
rule but code to monitor the Calendar folder for new items using the
Items.ItemAdd event.

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"Bob Smith" wrote in message
...
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

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