Email from access directly
have a button next to an email field with the following code:
Private Sub EmailButton_Click()
On Error GoTo Err_EmailButton
If IsNull(Me.EmailAddress) Then
MsgBox "Please enter a valid email address", , "Email Out"
Else
DoCmd.SendObject , , , (Me.EmailAddress)
End...