Problema de envío emails desde Access al migrar a Outlook 365

Desde hace años, y gracias a la ayuda de los expertos de Todoexpertos (ya que no sé de VBA), uso una bbdd que me permite realizar envíos directamente desde Access. El caso es que la empresa ha migrado a Outlook 365 y los botones a los que tenía vinculado el código de envío han dejado de funcionar.
Lo copio a continuación. ¿Me podéis ayudar para solucionarlo?

Private Sub CONTROL_Click()

Dim rst As DAO.Recordset
Dim CONTROL As String
Set rst = CurrentDb.OpenRecordset("Select email from CONSULTA")
While Not rst.EOF
CONTROL = CONTROL & rst!email & ";"
rst.MoveNext
Wend
If Nz(CONTROL, "") <> "" Then
CONTROL = Left(CONTROL, Len(CONTROL) - 1)
End If
DoCmd.SendObject , , , , , CONTROL
End Sub