Emailing Report

[joecamel9166]

Can someone please explain why I am getting an error message when I am running this script.Error Message: The Object type argument for this action or method is blank or invalidCode Used:

   If Me.cmbQuoteVia = "Email" Then
      DoCmd.OpenReport "rptQuote", acViewNormal, , "[Unit] = " & [Unit]
      DoCmd.SendObject acSendReport, , acFormatPDF, Me.CustEmailQuote, , , "RSO#" & [Unit], "Please see attached Repair Quote"
   End If

[ranman256]

Your param are out of order...extra comma
DoCmd.SendObject acSendReport ,Me.CustEmailQuote,acFormatPDF,TO,CC,BCC,SUBJ,MSG, FALSE

[joecamel9166]

Me.CustEmailQuote is the field name which contains the email address. Therefore that should be in the "To" parameter.

I am trying to email a quote for the current "Unit". If I put "rptQuote" in that parameter, it emails all units.

[joecamel9166]

I found the problem.

If Me.cmbQuoteVia = "Email" Then
      DoCmd.OpenReport "rptQuote", acViewReport, , "[Unit] = " & [Unit]
      DoCmd.SendObject acSendReport, , acFormatPDF, Me.CustEmailQuote, , , "RSO#" & [Unit], "Please see attached Repair Quote"
      Docmd.CloseReport 
   End If

apparently I was not able to email after the report opened in normal view. I had to change it to view report and then close it.