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