Sending Email attaching a Zip file

[Terry P]

I am able to zip the active Workbook but I need to email the zipped file rather than the Workbook.
Any ideas please?
This message was edited by Terry P on 2002-12-07 10:22

 

[dsgs]

hi,

this post looks very much like something i'd like to do.
Zip my file, i used the code mentioned above as following:

Sub SendFiles()
Dim SendAddress As String, ZipFile As String, ZipList As String
Dim ShellString As String, FileToZip As String
FileToZip = "c:\mim.xls"
ZipFile = "c:\mim.zip"
ShellString = "C:Program Files\Powerarchiver\powerarc.exe " & ZipFile & " " & FileToZip
Shell ShellString
End Sub

If i use this macro it starts Powerarchiver (So far so good), but then i'd hoped it would zip mim.xls into mim.zip but it stops after openening Powerarchiver. any ideas?