Outlook Exchange Server - Read Email

[dflak]

My IT department doesn't know what to do with this.

Attached is a workbook that works if Mailbox = my work account. It does not work if Mailbox = shared work account. I used this code with a former employer, so I know it is possible, but my IT department says, it's VB code and we don't do that.

The error message I get when I try to read the shared mailbox is "An object could not be found" on this line

Set FldrIn = olNS.Folders(MailBox).Folders("Inbox").Folders(SubFolder)

The object that can't be found is the mailbox.

What makes this even more confusing is that I can use the shared mailbox to send out mass mailers and it receives replies without issue.

I sent out about 200 emails last week and I would like to see from whom I got replies. I would rather not have to open each reply and record the addresses manually.

Does anyone have a clue on what I should tell my IT people to do?

P.S. This code also works with my 365 Home account.