Programmatically add reminder (if missing) to meeting requests

[JP]

Hello everyone,

I often receive meeting requests without reminders. This causes a
problem when I miss the ensuing meeting because no reminder pops up.

Is there a way to check an incoming meeting request for a reminder,
and add it if necessary?

I would appreciate any sample code or pointers to websites with more
information, I am an Excel programmer and new to the Outlook object
model.


Thx,
JP

 

[Michael Bauer [MVP - Outlook]]

This sample does the opposite, it deletes a reminder:
http://www.vboffice.net/sample.html?mnu=2&smp=58&cmd=showitem&lang=en&pub=6

Set both ReminderSet properties to True and write the time to the
ReminderTime properties.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Synchronize Color Categories & Ensure that Every Item Gets Categorized:
<http://www.vboffice.net/product.html?id=2006063&cmd=detail&lang=en&pub=6>

Am Tue, 30 Oct 2007 20:39:12 -0000 schrieb JP:

 

[JP]

Thank you Michael.

I updated your code and added "Appt.ReminderMinutesBeforeStart = 15"
to the Appt section, would that be sufficient, or do I need to use
Meet.ReminderTime?

If I need to use Meet.ReminderTime, how do I format the value I want?


--JP

 

[Michael Bauer [MVP - Outlook]]

ReminderMinutesBeforeStart and Reminderset=true should be fine. Then save
the item.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Synchronize Color Categories & Ensure that Every Item Gets Categorized:
<http://www.vboffice.net/product.html?id=2006063&cmd=detail&lang=en&pub=6>

Am Wed, 31 Oct 2007 14:20:57 -0000 schrieb JP:

 

[JP]

Hi again,
I tried it and it doesn't seem to work. I asked someone to send a
meeting request without a reminder. After I accept, I check the
appointment on the calendar and there's no reminder. Could there be a
delay before the reminder appears? Here's the code I used.


Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
Dim Ns As Outlook.NameSpace

Set Ns = Application.GetNamespace("MAPI")
Set Items = Ns.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
On Error Resume Next
Dim Meet As Outlook.MeetingItem
Dim Appt As Outlook.AppointmentItem

If TypeOf Item Is Outlook.MeetingItem Then
Set Meet = Item

Meet.ReminderSet = True
Meet.Save

Set Appt = Meet.GetAssociatedAppointment(True)

If Not Appt Is Nothing Then
Appt.ReminderSet = True
Appt.ReminderMinutesBeforeStart = 15
Appt.Save
End If
End If
End Sub



Thx,
JP

 

[Michael Bauer [MVP - Outlook]]

First, you might check if the code runs at all. Place the cursor e.g. on the
Items_ItemAdd line and press f9 for a breakpoint. If you then receive
another item the code execution should stop at that line.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Synchronize Color Categories & Ensure that Every Item Gets Categorized:
<http://www.vboffice.net/product.html?id=2006063&cmd=detail&lang=en&pub=6>

Am Fri, 02 Nov 2007 01:04:25 -0000 schrieb JP:

 

[JP]

Tried that, it doesn't work. The event doesn't fire at all.

--JP

 

[Michael Bauer [MVP - Outlook]]

Ok, then go to Tools/macro/Security and allow VBA to be executed. Then
restart Outlook.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Synchronize Color Categories & Ensure that Every Item Gets Categorized:
<http://www.vboffice.net/product.html?id=2006063&cmd=detail&lang=en&pub=6>

Am Fri, 02 Nov 2007 18:50:06 -0000 schrieb JP:

 

[JP]

Brilliant! It works now. I was updating the code but didn't close and
restart Outlook before testing. Thanks for your assistance.



Thx,
JP