Problems accessing named folder from VBA

  • Thread starter Thread starter rob
  • Start date Start date
R

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
 
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
 
Back
Top