Problems accessing named folder from VBA

[rob]

I have a VBA macro that includes the lines

Dim olNS As Outlook.NameSpace
Dim TopFolder As Outlook.MAPIFolder

Set olNS = Application.GetNamespace("MAPI")
....
Set TopFolder = olNS.Folders("Personal Folders") 'problem with this
statement

Running Outlook on my development PC, this works fine.
Running Outlook on the server where this is to operate:-
- When called as a script from an Outlook rule, the last line hangs.
- When I run this from the Immediate window, I get
-2147221233 (8004010f)
The operation failed. An object could not be found.

Any ideas how I can get this working?
Many thanks,
Rob

 

[Sue Mosher [MVP-Outlook]]

The error suggests that the mail profile being used by Outlook on that machine has no top-level store with a display name of Personal Folders. You can test this by iterating the top-level stores in the Immediate window:

For Each TopFolder in Application.Session.Folders
Debug.Print TopFolder.Name
Next