Save attachments in specified folder to hard drive

[davidman]

The following will save the attachments from a selected message to C:\Reports\ (which must pre-exist) and delete the message. The additional functions are to ensure that existing files of the same name are not overwritten, but are appended with an incrementing number.

The If Not olAttach.Filename Like "image*.*" Then condition is intended to eliminate random graphics files that are not attachments, but are treated as such. If your wanted attachments have names beginning 'image' then omit that condition.

Thanks, but how does the macro know which folder to look in?

Edit: Got it, this will only do it for the selected one so my rule to move the reports into the report folder should also launch this code?