I've been looking into this. Sometime within the last 12 months, there was a security fix applied which actively prevents this functionality from working on a shared mailbox. The code was previously tested on a non-o365 envrionment, so I'm wondering if that has something to do with it.
Google led me to a post confirming that the code in the VBO is what was previously valid, so it's not technically a syntax error.
I did find one work around, but it's a hack and a two-step solution. Do note that this will not take into account any value supplied for the subfolder variable, but does require that some value be present in order to trigger. The end result will pull from whatever the current active folder is, which somehow doesn't trip any security flags. I looked into setting the folder as the current active folder by code, but that uses the same code snippet that's currently running into issues.
Step 1:
Modify the Sub_Folder section of the code
If Sub_Folder <> "" Then
if sharedEmail <> Nothing then
folder = app.ActiveExplorer.CurrentFolder
else
For each name as string in Sub_Folder.Split("\")
folder = folder.Folders(name)
Next
end if
End If
Step 2:
Have a separate VBO attach to Outlook and click the subfolder that you want to access.
------------------------------
Ami Barrett
Sr Product Consultant
Blue Prism
Plano, TX
------------------------------
