Rule to set reminder if not set

Status
Not open for further replies.
Q

Qm9iIFNtaXRo

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
 
K

Ken Slovak - [MVP - Outlook]

If Item.ReminderSet = False Then

"Bob Smith" <BobSmith> wrote in message

news:10292538-64DA-4FF8-AFA7-4533D6750925@microsoft.com...
> 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
 
Q

Qm9iIFNtaXRo

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
 
S

Sue Mosher [MVP]

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

"Bob Smith" <BobSmith> wrote in message

news:10292538-64DA-4FF8-AFA7-4533D6750925@microsoft.com...
> 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
 
Q

Qm9iIFNtaXRo

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
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
M How to set a rule for calendar items to go to a folder vs inbox? Using Outlook 1
D Is it possible to set up an email rule for a user based on alias address? Exchange Server Administration 3
A rule name into message - how? Outlook VBA and Custom Forms 5
O Mail rule issue Using Outlook 3
A manual rule sends mail to wrong folder Using Outlook 5
Aussie Outlook 365 Rule runs manually but returns the error code "an unexpected error has occurred" when incoming mail arrives Using Outlook 1
bhamberg Finding a rouge rule... Using Outlook 6
D How to get this rule to work Using Outlook 0
B Seeking help with Outlook rule Using Outlook 2
K Run a script rule to auto 'send again' on undeliverable emails? Outlook VBA and Custom Forms 1
G Save attachment run a script rule Outlook VBA and Custom Forms 0
R Rogue Outlook Rule ? Using Outlook 2
P Can I create a Rule that sends me an email when I get a Task? Using Outlook 2
E Having some trouble with a run-a-script rule (moving mail based on file type) Outlook VBA and Custom Forms 5
M How create a Rule to filter sender's email with more that one @ sign Using Outlook 1
diver864 vba for a rule to automatically accept meeting requests with 'vacation' in subject, change to all-day event, change to free, don't send reply Outlook VBA and Custom Forms 1
1 Incorrectly Setup a Rule at Domain level to not allow address from outside domain Exchange Server Administration 2
J Transport Rule to detect Keyword question.. Exchange Server Administration 2
T "Words In Recipient's Address" Rule Causes Outlook To Stop Processing Rules Using Outlook 3
R Outlook Autoforward rule do not work for NDR messages Using Outlook 1
R Setup autofoward rule on a particular folder in Outlook Using Outlook 0
N Rule for "on behalf of" - with changing names Using Outlook 2
S Unable to remove rule outlook 2010 Using Outlook 0
O Outlook 2016 This rule will only run when you check your email in Outlook.... Using Outlook 4
Nadine Rule to move attachments with specific name Outlook VBA and Custom Forms 1
N Outlook Email Rule execution through shortcut keys (VBA codes) Using Outlook 1
dweller Outlook 2010 Rule Ignores VBA Script Outlook VBA and Custom Forms 2
O Rule to move (specific) messages from Sent folder to Specific folder Using Outlook 1
S Adding new Exchange (2016) rule very slow down Microsoft Outlook Exchange Server Administration 0
B Outlook rule run a Script doesn't work Outlook VBA and Custom Forms 1
K VBA BeforeItemMove event create rule to always move to its folder. Outlook VBA and Custom Forms 4
icacream Rule based on sender / wrong sender sent to folder Using Outlook 7
Bri the Tech Guy Run Script rule not running for newly arriving messages Outlook VBA and Custom Forms 25
L Making rule to move email to folder from one O365 domain Using Outlook 1
J Assess content of User Defined Field in Rule Using Outlook 3
S Send email via SMTP - use transport rules to add to senders inbox (then rule to move to sent items Exchange Server Administration 1
A Change order of actions in one (!) rule Outlook VBA and Custom Forms 2
J HELP- Rule to auto strip prepend from external emails Using Outlook 0
A Forward Outlook Email by Filtering using Macro Rule Outlook VBA and Custom Forms 44
A rule to flag messages not working Using Outlook 5
Brian Murphy Exchange Online Everything a Transport Rule should do and cannot Exchange Server Administration 1
J Outlook Rules - Changing auto-submit address in multiple rules, according to rule name Outlook VBA and Custom Forms 0
A saving attachement to folder named the same as rule name Outlook VBA and Custom Forms 0
Jennifer Murphy Can I create a Rule with Or'd conditions? Using Outlook 1
A Rules - how to determine if all conditions in rule are true or false Outlook VBA and Custom Forms 5
Vijay Error in rule- Run a script Using Outlook 1
Ascar_CT Rule behavior analysis - any tools available? Using Outlook 0
Liza Creating a rule in outlook to filter messages Using Outlook 0
Stilgar Relsik Create a rule to copy text from an email and paste it in the subject line. Using Outlook 1
M VBA Rule for removing all body but hyperlink then forwarding Outlook VBA and Custom Forms 9

Similar threads

Top