View Single Post
  #1  
Old October 21st 08, 03:03 PM posted to microsoft.public.outlook.program_vba
Nigel RS
external usenet poster
 
Posts: 16
Default Saving email attachments

Hi Ken
I get the path D:\myfile.xls (for example) which is a valid path, yet the
message from Outlook says...

Runtime error - 1525219205
Cannot save the attachment. Filename or directory name is not valid.

In debug: SaveFolder shows: D:\
objatt.name returns: myfile.xls

I wonder if it is the local path mapping that failing, the server is network
based but the rule runs in local client.

"Ken Slovak - [MVP - Outlook]" wrote:

The code looks OK offhand, what sort of path strings are you getting? Do the
paths other than the file name actually exist?

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"Nigel RS" wrote in message
...
I am using the following code, that runs from an outlook rule, to save
attachments
to a path defined by the contents of the email body. For example in my
email body I have the text string
D:\

I receive an error despite the path and file looking OK.

Help!

Sub ANYPATH(itm As Outlook.MailItem)

Dim objatt As Outlook.Attachment
Dim SaveFolder As String
SaveFolder = Trim(itm.Body)

For Each objatt In itm.Attachments
objatt.SaveAsFile SaveFolder & objatt.DisplayName
Next

Set objatt = Nothing

End Sub



Ads