Re: winzip in macro

From: Ron de Bruin (rondebruin_at_kabelfoon.nl)
Date: 02/25/04 

Date: Wed, 25 Feb 2004 16:07:34 +0100

Hi Bob/Michael

See this example

http://www.rondebruin.nl/sendmail.htm#Zip

My Outlook Add-in have this option also
http://www.rondebruin.nl/sendmail-addin.htm 

-- 
Regards Ron de Bruin
(Win XP Pro SP-1  XL2000-2003)
www.rondebruin.nl
"Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message news:evZ8nh4%23DHA.3772@TK2MSFTNGP11.phx.gbl...
> Michael,
>
> Here is something Ron de Bruin wrote on this subject
>
> On the zipping part, you may want to check WinZip's web site.  A few months
> ago they introduced an addin to Winzip called the command line support addon
> which lets you enter command switches with the Basic Winzip command.  you
> could then use some code like this:
>
> Sub Zip_File()
> Dim Zip_Path As String, Command_Text As String, My_Prog
> Try_Drive
> Zip_Path = File_Sh.[AH13]
> ' Delete the old zip file if it exists to avoid adding this file
> Command_Text = Zip_Path & Path_Sep & "wzzip -yp spc.zip spc.xls"
> My_Prog = Shell(Command_Text, vbMaximizedFocus)
> End Sub
>
> The one "gotcha" I never got past was that unless the user is using Outlook,
> the only file I could zip and mail was the open workbook using the
> File.SendMail command.  One of these days I'm going to write a macro to use
> outlook but just haven't yet gottn to it.
>
>
>
> -- 
>
> HTH
>
> Bob Phillips
>     ... looking out across Poole Harbour to the Purbecks
> (remove nothere from the email address if mailing direct)
>
> "Michael" <anonymous@discussions.microsoft.com> wrote in message
> news:109201c3fb82$11e92c40$a501280a@phx.gbl...
> > Help, I have written a macro that performs calculations in
> > a spread*** and e-mails it to the relevant people.  The
> > problem I have is that the file is large and would benefit
> > from compression, is there a way of writing this in to the
> > Macro.
> >
> > Thanks
> > Michael
>
>