Programmatically add reminder (if missing) to meeting requests

  • Thread starter Thread starter JP
  • Start date Start date
J

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
 
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
 
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
 
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:
 
Brilliant! It works now. I was updating the code but didn't close and
restart Outlook before testing. Thanks for your assistance.



Thx,
JP
 
Back
Top