'
' Macro1 Macro
' Macro written 15/09/2008 by axuklslav
'
Sub ZipFile()
Dim ZipPath As String
Dim ZipIt As String
Dim Source As String
Dim Dest As String

ZipPath = "C:\Program files\Winzip\"

Source = "N:\mis\oth\othReporting\082008\UKA Report\"
'Source2 = "N:\mis\oth\othReporting\082008\UKA Reports\CARC-lt3"
'Source3 = "N:\mis\oth\othReporting\082008\UKA Reports\UKA-GE3"
'Source4 = "N:\mis\oth\othReporting\082008\UKA Reports\UKA-lt3"

Dest = "N:\mis\oth\othReporting\082008\UKA Reports"
'Note spaces important

ZipIt = Shell(ZipPath & "Winzip32 -a " & Dest & " " & Source & Source2
& Source£ & Source4, vbNormalFocus)

ZipIt = Shell(ZipPath & "Winzip32 -a " & Dest & " " & Source,
vbNormalFocus)

ZipIt.SendMail ", Subject:="RBS2-5 zipped
files, ReturnReceipt:=True"

Thanks