On Error GoTo cmdEmail_Click_Err

DoCmd.SendObject , , , "test@test.com", , , "test message", "testing" 

cmdEmail_Click_Exit:
Exit Sub

cmdEmail_Click_Err: Select Case Err.Number

Case 2501
        MsgBox "This is a test.", vbInformation
Case Else
        MsgBox "Error " & Err.Number & " " & Err.Description
End Select

Resume cmdEmail_Click_Ex

######################################################################################

Sub ErrGoToEnd()
 
On Error GoTo endProc
 
'Some Code
    
endProc:
End Sub



Links

https://social.msdn.microsoft.com/Forums/office/en-US/c391306c-15d6-4970-bb9f-4fa1d74f7dec/error-handling-if-docmdsendobject-is-cancelled?forum=accessdev


https://www.automateexcel.com/vba/error-handling/#VBA_Error_Handling