Saving an Outlook Attachment then move to another folder.

[dflak]

Although this code is run from Excel, I presume this is an Outlook issue.

I want to go though all the messages in a specific folder, save the attachment and then move the message to a sub folder. The following code reads the messages in the folder. That's as far as I can get.

The first failure is on this line:

Please Login or Register  to view this content.

I get the error "The attempted operation failed. An object could not be found." The line above it works. I have confirmed that the SubFolder does exist.

OK,so we comment that out and let's try to save the attachment.

Please Login or Register  to view this content.

Both of these incantations fail with "Object variable with block variable not set." It knows the Excelfolder (again confirmed that it does exist) but doesn't like Filename or Displayname.

And of course, I can't even get to

Please Login or Register  to view this content.

until I get the other problems fixed.

Here's the full code - it works only because I have the parts I want to do commented out.

Please Login or Register  to view this content.

[CK76]

Try something like...

Please Login or Register  to view this content.

[CK76]

As for failure on below line...

Please Login or Register  to view this content.

Mailbox should be the email account, then each subsequent subfolders. Tested on my Outlook and works fine as long as I follow folder structure.
Used following for test.
\myaccount@mycompany.com\Inbox\DailySales\Test

Stuck in there one mail from yesterday. And used the loop code posted above to save attachment on the email to my local drive.

[dflak]

Thanks. That solves one of my problems. Now I have an issue with identifying the sub folder. Sometimes I get the error, sometimes I don't. Opening and closing outlook seems to have some sort of an effect on whether it works. When the error doesn't happen, it will loop though about half the messages in the folder and stop. I can re-execute it and it will do half of the remainder and so on until only one item is left and then it executes it. That's why I threw in the DoEvents.

Here is the code as it exists now.

Please Login or Register  to view this content.

[dflak]

P.S. I closed outlook and re-opened it so I did not get the error and I stepped through the code manually. I had 7 messages in the folder. It processed 4 of them, and then moved out of the Next olMail loop with three messages still left in the box. I ran the code again on the remaining three messages and it processed two of them leaving one. I though I knew how to do loops?

[CK76]

Try replacing for each loop for mail item with For i = loop.

Something like...

Please Login or Register  to view this content.

My best guess is that by using .Move index for each mail got moved up 1 and hence reached end of folder items faster than anticipated (by skipping some items).

Edit: Using same concept as when you are looping through rows in cell range and deleting rows.

[dflak]

Not only does that make sense, it works . Obviously, I don't work with Outlook a lot. So this is analogous to removing rows from a sheet in Excel and is not analogous to looping through files in a windows folder.

Thanks for all your help. Now I'll attend to that pesky intermittent error message.

[CK76]

You are welcome and thanks for the rep