zip a set of reports and email them

[dj59]

I have a set of 10 reports that are produced using MS Access and exported to a folder on the network.

My goal is to click a button on a form in MS Access, trigger some vba code that will zip this folder, attach it to an email and send it. Is this possible?

I found this code that works for attaching one report within MS Access to the email, but I need a set of reports within a folder on the network zipped and sent:

DoCmd.SendObject _
    acSendReport, _
    "Rpt_55", _
    acFormatPDF, _
    "somename[EMAIL="somename@gmail.com"]@gmail.com[/EMAIL]", _
    , _
    "Report Duplicates", _
    "TEST This is to test an automatic email sent from access with a pdf attachment.", _
    False