This will be what you're looking for
Martin
Private Sub EmailTheName_Click()
'Email the selected member at this record
Dim Response As String
Do
'Email the member if EmailName exist and button is pressed
On Error GoTo TheUserMustHaveCancelled
DoCmd.SendObject acSendNoObject, , , EmailName, , , "The Subject blah
blah blah: ", , True
MsgBox ("Message was sent OK")
Exit Sub
'If the user does not send the email but aborts then make sure and avoid a
system default message
TheUserMustHaveCancelled:
Response = MsgBox("Do you really want to cancel sending the
message?", _
vbYesNo, "Cancel or Retry send")
If Response = vbYes Then ' User chose Yes.
Response = MsgBox("No emails were sent as you cancelled!", vbOKOnly,
"Email status")
Exit Sub
Else
If Err = 2501 Then Resume TheUserMustHaveCancelled
End If
Loop Until Response = "No"
End Sub
"Keyboard Cowboy" <ke************@email.com> wrote in message
news:lo*****************@newsread1.news.atl.earthl ink.net...
I created a button on a form to open my email program & would like to
automatically insert the records email address in the to: box.
How can i do this.
Thanks in advance
Keyboardcowboy