Error after E-mail cancelation

[Guest]

Hi..I'm using this code to send a snapshot attachment by e-mail, it work fine
the first time but when I try to send it again, appear a message that reads
"Error in EMailRptBtn_click()in Orders.form, Error # 2046, The command or
action 'OutputTo' isn't available now.

anybody can help me, I will appreciate so much.

_____________________________________________
Private Sub EMailRptBtn_Click()

On Error GoTo ErrHandler

Dim rpt As Report
Dim sRptName As String
Dim sMsg As String
Dim stdomail As String

sRptName = "rptSingleOrder"
sMsg = "Please confirm if this Order Quotation is correct with " & _
"Product Name, Descripción & price!!"
stdomail = Me![SupplierID].Column(2) 'This column has the e-mail address

DoCmd.OpenReport sRptName, acViewDesign
Set rpt = Reports(sRptName)

rpt.RecordSource = "SELECT * " & _
"FROM [OrdersQueryInvoice1] " & _
"WHERE (OrderID = " & Me!OrderID.Value & ");"

DoCmd.Close acReport, sRptName, acSaveYes

DoCmd.SendObject acSendReport, sRptName, acFormatSNP, _
stdomail, , , "Order Quotation", sMsg, True

CleanUp:

Set rpt = Nothing

Exit Sub

ErrHandler:

If (Err.Number <> 2501 Or 2046) Then ' User didn't cancel E-Mail.
MsgBox "Error in EMailRptBtn_Click( ) in" & vbCrLf & _
Me.Name & " form." & vbCrLf & vbCrLf & _
"Error #" & Err.Number & vbCrLf & vbCrLf & Err.Description
End If

Err.Clear
GoTo CleanUp


End Sub
_____________________________________________________

ldiaz
thanks.

 

[aaron.kempf]

Err.Number <> 2501 Or 2046


this should read

If (Err.Number <> 2501 AND Err.Number <> 2046)

a better way to write it is

select case err.number
case 2501, 2046
resume cleanexit
case else
resume next
end select