Microsoft Access zip /protect attachment

When adding a command to email and specifying the format, can you zip and password the attachment.

code:
if form_myform.amount >0 then
dim stdocname as string
stdocname= “myreport”
docmd.openreport stdocname, acNormal
docmd.sendobject acreport, stdocname, acformatsnp, “myemail@email.com”,,,”Subject”, ,false
docmd.runsql “delete from mytable * where st=’38′”
docmd.setwarnings true
docmd.domenuitem acformbar, acrecordsmenu, 5, acmenuver70

blah blah blah