Como cancelo una una reunió de outlook desde access con VB

Tengo este código para enviar una reunión desde access a outlook a varios destinos

Dim outMail As Outlook.AppointmentItem

Set outMail = Outlook.CreateItem(olAppointmentItem)

outMail.Subject = Forms![FrmCitas]![TxtCliente]
outMail.Location = Forms![FrmCitas]![txtLocation]
outMail.MeetingStatus = olMeeting

'Si este es un evento de todo el día, entonces la Fecha de inicio será igual a la Fecha de finalización
'De lo contrario, se aplica la fecha / hora de inicio normal y la fecha / hora de finalización
If Me![chkAllDay] = -1 Then
outMail.Start = Forms![FrmCitas]![FechaInicio]
outMail.End = Forms![FrmCitas]![FechaInicio]
outMail.AllDayEvent = True 'Establece el indicador de evento de todo el día en verdadero
Else
outMail.Start = Forms![FrmCitas]![FechaInicio] & Space(1) & Forms![FrmCitas]![HoraInicio]
outMail.End = Forms![FrmCitas]![FechaFin] & Space(1) & Forms![FrmCitas]![HoraFin]
End If

'Utiliza el cuadro de texto oculto para calcular para qué se debe configurar el recordatorio (minutos, horas, días, semanas)
'Todo debe convertirse en minutos
Select Case Forms![FrmCitas]![txtInterval]
Case "Minutes"
outMail.ReminderMinutesBeforeStart = Me![cmboReminderIntervals]
Case "Hours"
outMail.ReminderMinutesBeforeStart = Me![cmboReminderIntervals] * 60
Case "Days"
outMail.ReminderMinutesBeforeStart = (24 * Me![cmboReminderIntervals]) * 60
Case "Weeks"
outMail.ReminderMinutesBeforeStart = (24 * 60) * (7 * Me![cmboReminderIntervals])
Case Else
outMail.ReminderMinutesBeforeStart = 0
End Select
outMail.RequiredAttendees = Forms![FrmCitas]![CorreoProfecional] 'Direcciones de correo electrónico de los asistentes requeridos
If Not IsNull(Forms![FrmCitas]![Correo]) Then
outMail.optionalAttendees = Forms![FrmCitas]![Correo] 'Direcciones de correo electrónico de los asistentes a la opción
End If
outMail.Body = Forms![FrmCitas]![Nota] 'El cuerpo de la cita.
outMail.ReminderSet = True 'Enciende los recordatorios
outMail.Send

MsgBox "Su solicitud de cita ha sido enviada", vbInformation, "PROCESO COMPLETO"
Me.Enviada = True
Set outMail = Nothing
Me.btnSalvar.enabled = False
DoCmd. Close

Lo que pretendo ahora que desde access poder cancelar la reunión desde el mismo access