Attached folder attributes

[sonomaenterprises]

I have a program that walks through the folders in outlook inspecting the
default message class of each folder. Basically what I do is
for i=1 to oOutlook.session.folders.count
for j=1 to oOutlook.session.folders.item(i).folders.count
if
instr(lcase(oOutlook.session.folders.item(i).folders.item.defaultmessageclass),"contact") > 0 then
'process
end if
next
next

This works fine in Windows 2000 and 2002 for all configurations

However, in OL 2003 with another users exchange folders attached it returns
an operation failed message. I am able to get the same property if I use
Outlook Spy, however if I try via the application it fails.
One other piece of info, if I am in the folder when I run the script it
works, however it I am in any other folder it fails.