DoCmd Function for Emails

[tosh_28516]

Good Day All,

I wanted to have a link within my database that will generate a monthly email without an attachment so I scripted a simple VBA code:

Private Sub Survey_Click()
DoCmd.SendObject ObjectType:=acSendNoObject, To:="Christopher Ricks; Jeffrey Egnor; Tricia Morales", CC:="Susan Ermisch; Alexa Percorella; Jessica Carson", Subject:="Roadside Assistance Survey Winner", MessageText:="This month's winner is:"


End Sub

The code works great if you send the email, but if you exit out of the pop-up window without sending I receive a Run-time error '2501' - The SendObject action was canceled. Is there some type of script that I can add to my VBA that will eliminate this error?



Thank You

[pbaldy]

Add error handling:

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

and for that error number, don't include the message box.