Welcome to SPN

Register and Join the most happening forum of Sikh community & intellectuals from around the world.

Sign Up Now!

Error after E-mail cancelation

Discussion in 'Information Technology' started by ldiaz, Nov 9, 2005.

  1. ldiaz

    ldiaz
    Expand Collapse
    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.
     
  2. Loading...


Share This Page