accObj = GetObject(, "Access.Application")
' Turn off error handling
On Error GoTo 0
' You can now use the accObj reference to automate
Access
accObj.DoCmd.SendObject(, "rptDoDost",
"PDFFormat(*.pdf)", "infolo...@company.pl", , , "Test", "TestMsg",
True, "")