Find the Outlook.Account object of a mailbox - email

Question

Accounts
Let's say I have multiple accounts in Outlook ("bob#example.com" and "bob#gmail.com"):
Mailboxes
Each account can have multiple mailboxes. In this case the account bob#example.com has 3 mailboxes:
"bob#example.com"
"Example Support"
"Online Archive - bob#example.com"
and the account bob#gmail.com only has 1 mailbox:
"bob#gmail.com"
The screenshot is after [right clicking "Example Support" > Data File Properties... > Advanced]
The mailbox "Example Support"
This is the mailbox I'm interested in. It has the email address "support#example.com".
Find Outlook.Store by it's email address
I know how to find the Outlook.Store object for the mailbox "Example Support", given only it's email address:
Function GetStore(oApp As Outlook.Application, emailAddress As String) As Outlook.Store
Dim oStore As Outlook.Store
Set oStore = Nothing
Dim s As Outlook.Store
For Each s In oApp.Session.Stores
If s.ExchangeStoreType = olExchangeMailbox Then
Dim PR_MAILBOX_OWNER_ENTRYID As String
PR_MAILBOX_OWNER_ENTRYID = "http://schemas.microsoft.com/mapi/proptag/0x661B0102"
Dim ownerEntryId As String
ownerEntryId = s.PropertyAccessor.BinaryToString(s.PropertyAccessor.GetProperty(PR_MAILBOX_OWNER_ENTRYID))
Dim oAddressEntry As Outlook.AddressEntry
Set oAddressEntry = oApp.Session.GetAddressEntryFromID(ownerEntryId)
Dim oExhangeUser As Outlook.ExchangeUser
Set oExhangeUser = oAddressEntry.GetExchangeUser()
If oExhangeUser.PrimarySmtpAddress = emailAddress Then
Set oStore = s
Exit For
End If
End If
Next s
Set GetStore = oStore
End Function
Question
How do i find the Outlook.Account object of a mailbox, given only the email address of that mailbox?
Details
I can see the Outlook.Account object with .SmtpAddress "bob#example.com" that i want, in the debugger. But, i can't find any relation between it and the mailbox for "Example Support", unlike in the screenshot.
The Outlook.Store object for the mailbox "Example Support", is not the .DeliveryStore for the Outlook.Account object with .SmtpAddress "bob#example.com".

Answer 1

Essentially, you need to find PR_SERVICE_UID of the profile section where the store account properties are stored. Once you have that, you can look through all accounts (IOlkAccountManager) and check if you can find a matching IOlkAccount object with the same value of the PROP_MAPI_SERVICE_UID property. You can see these (and other) objects in OutlookSpy.
You can do that in C++ or Delphi, but not in VBA or VB6 since it requires Extended MAPI.
If using Redemption (I am its author) is an option, it exposes the IRDOStore.StoreAccount property. You can also start with an RDOAccount object (exposed in the RDOSession.Accounts collection), cast it to RDOExchangeAccount, and loop through the IRDOExchangeAccount.AllStores collection.
set oomStore = Application.ActiveExplorer.CurrentFolder.Store
Set Session = CreateObject("Redemption.RDOSession")
Session.MAPIOBJECT = Application.Session.MAPIOBJECT
set redStore = Session.GetRDOObjectFromOutlookObject(oomStore)
set redAccount = redStore.StoreAccount
Debug.Print "Store account name: " & redAccount.Name
Debug.Print "All account stores:"
for each otherStore in redAccount.AllStores
Debug.Print otherStore.Name
next

Answer 2

There is no direct correlation between accounts and stores except delivery stores. You even can add a new store to the profile at runtime, see Add or remove a store for more information.
The best what you could do is to try to retrieve a shared store by using the GetSharedDefaultFolder method which returns a Folder object that represents the specified default folder for the specified user. Getting the Parent property value can lead you to the store.