Private Sub EMAIL_DblClick( CANCEL As Integer)

On Error GoTo HandleErr

If IsNull(Me![EMAIL]) Then
MsgBox "Customer Does Not Have An E-Mail Address"
DoCmd.GoToContr ol "EMAIL"
Else

DoCmd.SendObjec t , "", "", EMAIL, "", "", "", "", True, ""...