Hi,

Below is the code to send directly am email with the excel workbook
attached. But does anyone know how can I (by using macro) zip the file before
sending it out?

Private Sub CmdSubmit_Click()
WhereTo = Range("K2")
SubjectText = "Example for " & Range("C3") & " - " & Range("C4")
ActiveWorkbook.SendMail Recipients:=WhereTo, Subject:=SubjectText
End Sub

Thanks and regards,
Jackie