Ponle un control de errores, algo asi:
Private Sub resp9_BeforeUpdate(Cancel As Integer)
On Error GoTo Err_NoEnviar
DoCmd.SendObject acSendNoObject, , , Me.resp9.Column(5), "
[email protected]", , "Mensaje de control de cursos (En pruebas)", "Se le ha asignado la Planificación de la Documentación del curso " & Me.nom_curso & " para " & Me.nom_cliente & " en " & Me.provincia_curso, , False
Exit Sub
Err_NoEnviar:
If Err.Number <> 2501 Then
MsgBox Err.Number & ": " & Err.Description
End If
Exit sub
Un saludo