Compile Error: Expected: list separator or )

[Voodeux2014]

I am getting this error message when trying to write out this code. It is highlighting the semicolon after the first email address. Here is the code.

Private Sub Command35_Click()
    DoCmd.SendObject(acSendReport, _
    rptDeviceCost, _
    acFormatPDF, _
    "martin@pecsafety.com"; "Lewis@pecsafety.com"; "Matt@pecsafety.com", _
    "Emile@pecsafety.com"; "sean@pecsafety.com", _
    , _
    "Device Cost Report - Test", _
    "This is a test. Please disregard this email for now.", _
    True, )
End Sub

[pbaldy]

You want one string:

"martin@pecsafety.com; Lewis@pecsafety.com; att@pecsafety.com"

[Voodeux2014]

Ok got that changed and now I get the "Compile error: Expected: expression" error and it highlights the closing parenthesis.

[pbaldy]

There should not be a comma after True.

[Voodeux2014]

Hmm ok. Still getting the same error. Nothing highlighting this time but getting "expected: =" message

[pbaldy]

If rptDeviceCost is the actual name of the report (as opposed to a variable containing one), it needs to be in quotes. Did you fix the second group of addresses? You might try sending a simple email on one line, then break it onto different lines once you get it working.

[Voodeux2014]

Put the report name in quotes and yes the CC line of address I corrected as well. Broke it down to one line and even retyped all of it, still getting the same error as previously mentioned.

[pbaldy]

What is the code now? I don't usually include parentheses, though they may be okay.

[Voodeux2014]

Private Sub Command35_Click()
    DoCmd.SendObject(acSendReport, "rptDeviceCost", acFormatPDF, "martin@pecsafety.com; Lewis@pecsafety.com; Matt@pecsafety.com", "Emile@pecsafety.com; sean@pecsafety.com", , "Device Cost Report - Test", "This is a test. Please disregard this email for now.", True)
End Sub

[pbaldy]

Try this, which compiles for me:

DoCmd.SendObject acSendReport, "rptDeviceCost", acFormatPDF, "martin@pecsafety.com; Lewis@pecsafety.com; Matt@pecsafety.com", "Emile@pecsafety.com; sean@pecsafety.com", , "Device Cost Report - Test", "This is a test. Please disregard this email for now.", True

[Voodeux2014]

Ouutstanding. Thank you very much! It works!

[pbaldy]

Happy to help!