Moin,
pub := aNameSpace.Folders(strOpen).Folders(strAOpen).Folders(strAdressen); // <= Operator oder Semikolon
macht irgendwie wenig Sinn. Versuch es doch mal mit einzel schritten...
Und einfach erst mal den ersten Ordner öffnen, und dann mit unterordnern weiter versuchen.
Und dabei bitte auch bedenken, dass es sich hierbei ja um Exchange handelt. Und bei engl. Nutzern die Ordner anders heißen...