Outlook error, Pls Help

[RompStar]

I am using this code in outlook, and it's crashing. I took over process for someone else, not outlook VBA expert, any ideas ?

The error is here:

Set myinboxfolder = myInbox.Folders(3)

Run-time error '-2147352567 (80020009)';
Array index out of bounds

Any idea ?




Sub ExportAll()

' copies every messages from the IN Box and
Dim Message As MailItem

Set myNameSpace = Application.GetNamespace("MAPI")

Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)

Set myinboxfolder = myInbox.Folders(3)

For Each Message In myinboxfolder.Items

Message.Categories = "CCG Job"

Message.Save

Next Message

End Sub

 

[GeofW]

This means that you have at most 2 folders within your Inbox. You may have none. Before referring to the 3rd folder, you should check the

myinboxfolder.Folders.Count

property and act accordingly. The folders collection is 1 based, by the way.