Thanks michaelryan78! That was the kicker. No idea where I got those quotes from.
The final working code now reads:
If Access.Version > 13 Then
DoCmd.SendObject acSendReport, stReport, acFormatPDF, , , , stSubject, stEmailMessage, True, ""
DoCmd.OutputTo acOutputReport, stReport...