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
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.
Our community of experts have been thoroughly vetted for their expertise and industry experience.