zip sendmail

alguien de ustedes ha podido usar este codigo con un compresor Gratutito?? Sub ActiveWorkbook_halZip_Mail() 'This sub will send a newly created workbook (copy of the Activeworkbook). 'It zip and save the workbook before mailing it with a ...