Emailing a Report - Error if mail is cancelled

[AMBLY]

Hi everyone!
Could someone help me with this, please?
I run Access2000 on XP

Have created a Report.
Have placed a button on a form to email the report
Works fine - email is generated, ready to input the To address & send. However If I decide not to send it afterall and (X) close the email this is what happens:
* I get a dB error message (1) which I can close with an OK,
* then it runs the button's error message (Code line 19) ,
* then it locks up the exiting of the whole database with another error message(3) and I have to Ctr/Alt/Del to get out....I can stay in the database and roam about to any other area, form , eport etc, can even again generate the same report in email and sucessfully send it, but I can't Quit the DB.

This is the code:

Private Sub MAILRPT_Click()
  On Error GoTo Err_MAILRPT_Click
 
  DoCmd.SendObject _
    acSendReport, _
    "rptCTStatus", _
    acFormatRTF, _
    , _
    , _
    , _
    "Status Report", _
    "Attached is the Status Report Do not reply to this Automated Email ", _
    True
 
  Exit_MAILRPT_Click:
  Exit Sub
 
  Err_MAILRPT_Click:
  MsgBox "Send of Report is cancelled!"
 
  Resume Exit_MAILRPT_Click
End Sub

Message 1: <Title: Database Name> - the SendObject action was cancelled. You used a method of the DoCmd Object to carry out an action in Visual Basic, but then clicked Cancel in a Dialog Box...."

Message3: "You can' exit the <Database Name> now. If you're running a Visual Basic Module that is using OLE or DDE, you may need to interrupt the module"

So my question: How do I amend this code to allow for a user changing their mind and cancelled the sending of the email, and preventing the messges 1 and 3??

Thanks! Hope you can help and hopefully simple to fix!

Cheers
AMBLY

[NeoPa]

This sounds like a bug in the Access (or at least library) code itself. I can't think of anything you can do to avoid this other than maybe exploring other methods of sending the email.
Your error handling code is working exactly as expected. I'm sorry. Maybe someone else may have some further light to throw on this matter.

[puppydogbuddy]

This sounds like a bug in the Access (or at least library) code itself. I can't think of anything you can do to avoid this other than maybe exploring other methods of sending the email.
Your error handling code is working exactly as expected. I'm sorry. Maybe someone else may have some further light to throw on this matter.

One alternative you have is to do away with the X button on your form and create your own custom close button.

To do away with the X button, invoke the form's property sheet in design view and set the Close Button property to No. Then create your own close button with code similar to the following:

Private Sub cmdClose_Click
If Me.Dirty Then
        Me.Undo
End If
DoCmd.Close
End Sub
 

[NeoPa]

If that works for you, you can probably simplify the code by just adding :

If Me.Dirty Then Me.Undo

after your line #18 of your posted code.

[Lysander]

So my question: How do I amend this code to allow for a user changing their mind and cancelled the sending of the email, and preventing the messges 1 and 3??

Thanks! Hope you can help and hopefully simple to fix!

Cheers
AMBLY

You can ask the user to supply the addresses before they initiate the sendobject and then change the true to false, which should send the email without giving them the option to cancel.

[NeoPa]

You can ask the user to supply the addresses before they initiate the sendobject and then change the true to false, which should send the email without giving them the option to cancel.

Thinking outside the box. I like that answer :)