Send email error and double up address

[burrina]

I have my code to send emails and use the company address as the from and it works.But when you send email, it puts the from email twice. and if you cancel sending a email, you get an error message. Don't know why this is? Here are the screenshots of what happens.

[alansidman]

Nice to see screenshots, but code is really what is needed to see what is happening.

[pbaldy]

In order to handle the cancelling of the email you have to trap the error:

http://www.baldyweb.com/ErrorTrap.htm

[burrina]

Where would I put this trap error code? On main form? what event? After update? When command button is clicked? Here is the code: I have a textbox named CompEmail that uses a dlookup for its default value. My email field is named EMail. And command button is named Command209. Enough details I hope. Code is firing on the command button.


Dim strCompAdd As String

strCompAdd = Me.CompEmail.Value

DoCmd.SendObject acSendNoObject, "FormTyp", acFormatHTML, [EMail], , , , strCompAdd, True, ""

[pbaldy]

You'd add the error trapping code to that code.

[burrina]

So how do I put all of this together? Conflicting statements???

Dim strCompAdd As String

strCompAdd = Me.CompEmail.Value

DoCmd.SendObject acSendNoObject, "FormTyp", acFormatHTML, [EMail], , , , strCompAdd, True, ""

Dim db As DAO.Database 'These two lines are just an example
Dim rs As DAO.Recordset 'your code may not include them
On Error GoTo ErrorHandler

'Your code here

ExitHandler: 'clean up as necessary and exit
Set rs = Nothing 'These two lines are just an example
Set db = Nothing 'your code may not include them
Exit Sub
ErrorHandler:
Select Case Err 'specific Case statements for errors we can anticipate, the "Else" catches any others
Case 2501 'Action OpenReport was cancelled.
MsgBox "No data to display"
DoCmd.Hourglass False
Resume ExitHandler
Case Else
MsgBox Err.Description
DoCmd.Hourglass False
Resume ExitHandler
End Select

[pbaldy]

Was "Your code here" not helpful in describing where your existing code would go?