Access - Notificaciones en Outlook (alertas)

Buen dia

Tengo un problema,, estoy usando office 365 y no puedo enviar correctamente notificaciones a outlook, en versiones anteriores no tenia problema ponia el codigo VB y se enviaba la notificacion a los correos que le indicaba, ahora solo me muestra a mi la notificacion y desde ahi tengo que hacerlo manual para enviar la alerta a los contactos

habra alguna forma de hacerlo automatico

de antemano gracias

codigo que estoy usando

Dim Olk As Outlook.Application
Dim OlkCita As Outlook.AppointmentItem
'Creamos la instancia de Outlook
Set Olk = CreateObject("outlook.application")
Set OlkCita = Olk.CreateItem(olAppointmentItem)
'añadiendo los elementos de la cita
With OlkCita
.Start = Date & " " & Time()
.Start = Me.Implementacion.Value & " " & Time()
.Duration = Me.Duracion.Value
.Subject = Me.Asunto.Value
.Resources = Me.Aquien.Value
.AllDayEvent = True
.Importance = olImportanceHigh
.End = Date & " " & Time()
.Send

'Si no tenemos el campo con notas a la cita podríamos eliminar la línea siguiente
If Not IsNull(Me.NotasCita.Value) Then .Body = Me.NotasCita.Value
'Si no tenemos el campo con localización podríamos eliminar la línea siguiente

.ReminderMinutesBeforeStart = 5
.ReminderSet = True
.
'Guardamos la cita
.Save
End With
'Eliminamos la instancia de Outlook
Set Olk = Nothing