Get Email from Outlook Sub Folder

[gc75150]

Hello,

I am fairly new to VBA programming. I need to access emails from an Outlook subfolder. When I run the procedure, I get a Run Time error '440' array index out of bounds. Could someone explain what this error means and the steps needed to correct my vba code? Thanks

Sub DownloadEmailAttachment()

Dim olApp As Outlook.Application
Dim olNS As Outlook.Namespace
Dim olFolder As Outlook.MAPIfolder
Dim olItem As Object
Dim mailitem As Outlook.mailitem
Dim olAtt As Outlook.Attachment

Set olApp = New Outlook.Application
Set olNS = olApp.GetNamespace("MAPI")
Set olFolder = olNS.Folders(olFolderInbox).Folders("CS Reports").Items


For Each olItem In olFolder.Items

If olItem.class = olMail Then
Set mailitem = olItem

Debug.Print mailitem.Subject
Debug.Print mailitem.ReceivedTime

End If

Next olItem

Set olFolder = Nothing
Set olNS = Nothing
Set olApp = Nothing


End Sub

 

[Dan_W]

Hi. Can you tell us where the code broke? What line was it on when the error message came up? I don't have Outlook on my current computer (my desktop) to test it, but I suspect the problem was with the following line? I think you should change:

Set olFolder = olNS.Folders(olFolderInbox).Folders("CS Reports").Items

to

Set olFolder = olNS.GetDefaultFolder(olFolderInbox).Folders("CS Reports")

It's not the error message I would have expected, but that line seems like its problematic. Let me know if that fixes it for you.

 

[gc75150]

Hi. Can you tell us where the code broke? What line was it on when the error message came up? I don't have Outlook on my current computer (my desktop) to test it, but I suspect the problem was with the following line? I think you should change:

Set olFolder = olNS.Folders(olFolderInbox).Folders("CS Reports").Items

to

Set olFolder = olNS.GetDefaultFolder(olFolderInbox).Folders("CS Reports")

It's not the error message I would have expected, but that line seems like its problematic. Let me know if that fixes it for you.

Hi Dan. Yes, that line is where the code is breaking. I edited my code to the change you suggested and vba returned error message "Object could not be found." I changed the line of code to:

Set olFolder = olNS.Folders("username@domain.com").Folders("CS Reports")

Vba is now returning results from the "CS Reports" subfolder. When is it appropriate to use the email address instead of using the olNS.GetDefaultFolder(olFolderInbox) method? Thanks for pointing me in the right direction.

 

[Dan_W]

Ahh of course - I didn't even think to ask - do you have your Outlook with multiple email accounts? I'm guessing that the CS Reports folder was one in your primary email account?

In any event, I'm glad it's working for you now. The key problem in your code (or at least, as far as I could see) was that you were attempting to assign the object of mails items to a folder - the line of code I asked you to change had .Items at the end, whereas the variable you were attempting to assign that object to (olFolder) had been previously dimensioned as a MAPIFolder.

Dim olFolder As Outlook.MAPIfolder
Dim olItem As Object
Dim mailitem As Outlook.mailitem

If you had've attempted to assign the object to a variable dimensioned as an Object (like you have with olItem above), that would've been fine ... for that line of code. You will have quickly encountered another error, however, in the next line of code where you attempt to set up a loop through the items in the folder. That would have meant you would be trying to iterate through the Folders("CS Reports").Items.Items (and that just isn't a thing...) Does that make sense? I'm worried I may not be explaining it properly.

As an aside, there is redundancy in your code as below:

If olItem.class = olMail Then
Set mailitem = olItem

Debug.Print mailitem.Subject
Debug.Print mailitem.ReceivedTime

End If

Your mailitem variable is redundant because you're already assigned it to the same object to olitem (through using the for each loop). You will accomplish the same result as you have here if you delete:

Set mailitem = olItem

and then replace all references to ICODE]mailitem[/ICODE] with olitem.

Let me know re: my question at the start of this reply, or if you experience any other problems.

 

[gc75150]

Makes perfect sense. Thanks again. Much appreciated!