VBOffice

Deleting Reminders of Meeting Requests

Are you bothered if every incoming meeting request has a reminder set? This sample deletes the reminder as soon as the request comes in.

Last modified: 2007/08/17 | Accessed: 31.563  | #58
◀ Previous sample Next sample ▶
Category-Manager Category-Manager
Access the master category list in the blink of an eye, share your color categories in a network, get a reminder service, and more.

Are you bothered if every incoming meeting request has a reminder set? This sample deletes the reminder as soon as the request comes in.


tip  How to add macros to Outlook
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 = False
    Meet.Save

    Set Appt = Meet.GetAssociatedAppointment(True)

    If Not Appt Is Nothing Then
      Appt.ReminderSet = False
      Appt.Save
    End If
  End If
End Sub
OLKeeper OLKeeper
OLKeeper reliably prevents users from closing their Outlook window and thus possibly missing reminders or e-mails.
email  Send a message