asked on
Private Sub txtEmail_Click()
Dim strEmail As String
If IsNull(Me.txtEmail) Then
MsgBox ("There is no email address shown")
Exit Sub
ElseIf Me.txtEmail = " " Then
MsgBox ("There is no email address shown")
Exit Sub
End If
strEmail = Me.txtEmail
DoCmd.SendObject , , , strEmail, , , , , True
End Sub