You are welcome


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Keith" wrote in message . ..
Thanks so much! That worked perfectly. I really appreciate your help.


"Ron de Bruin" wrote in message ...
Hi Keith

Check out this(not test it myself)

The free WinZip® Internet Browser Support Add-On will automate much of the work normally associated with downloading
compressed
files from the Internet. When you click on a Zip file using Microsoft Internet Explorer or Netscape Navigator/Communicator,
WinZip will take over when the download is completed. WinZip automatically moves the downloaded file to your download folder
(initially set to c:\download) and then, optionally opens the file.
http://www.winzip.com/ibrowser.htm


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Ron de Bruin" wrote in message ...
Hi Keith

Sorry you say Download (I must read before I answer <g)

I will test it this evening
I post back today



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Keith" wrote in message m...
After taking a look at this, I guess I just really don't understand
what this does, and why Outlook is involved. It seems that this would
just look for attachments in my Outlook and save them somewhere else.
And the file that I am downloading doesn't come from e-mail. Any way I
can get just a brief explanation on how this works? Thanks!

Keith


"Ron de Bruin" wrote in message ...
Hi Keith

With this you can place all the files in the Outlook folder Yourfolder to
To a folder (C:\Filefolder) on your harddisk

Sub SaveAtt()
Dim ol As Outlook.Application
Dim ns As NameSpace
Dim Fldr As MAPIFolder
Dim Mi As MailItem
Dim Att As Attachment

Set ol = New Outlook.Application
Set ns = ol.GetNamespace("MAPI")
Set Fldr = ns.GetDefaultFolder(olFolderInbox).Folders("Yourfo lder")

For Each Mi In Fldr.Items
If Mi.Attachments.Count 0 Then
For Each Att In Mi.Attachments
Att.SaveAsFile "C:\Filefolder\" & Att.Filename
Next Att
End If
Next Mi

Set Att = Nothing
Set Mi = Nothing
Set Fldr = Nothing
Set ns = Nothing
Set ol = Nothing

End Sub


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl