list / get all SentOnBehalfNames in outlook - vba

Question

I have a macro which creates a new email, send on behalf .... BUT I don't want to explicit use an hardcoded emailaddress, rather ask outlook which addresses there are set already.
I'm thinking about using a filter (like .... ends with "#myonbehalfdomain.com")
So in my example below: Eonbehalf should get the second emailadress which I can see using the dropdown 'from' field at new email.
Makes sense?
Sub CreateNewMail()
Dim olNS As Outlook.NameSpace
Dim oMail As Outlook.MailItem
Set olNS = Application.GetNamespace("MAPI")
Set oMail = Application.CreateItem(olMailItem)
strbody = "<BR><BR><BR>"
SigString = Environ("appdata") & _
"\Microsoft\Handtekeningen\custom.htm"
If Dir(SigString) <> "" Then
Signature = GetBoiler(SigString)
Else
Signature = ""
End If
On Error Resume Next
Eonbehalf = getemailaddress(2)
oMail.SentOnBehalfOfName = Eonbehalf
oMail.Display
oMail.HTMLBody = strbody & Signature
Set oMail = Nothing
Set olNS = Nothing
End Sub

Answer 1

From what I experienced an email can be available in Outlook to use as "Send on behalf" in 2 ways:
As additional/separate account
As an access to shared folder/mailbox in which case it's not visible in Accounts collection
For first case try loop through Accounts collection:
Sub getAccount()
Set oNS = Application.GetNamespace("MAPI")
For Each oAccount In oNS.Accounts
'your code goes here (read oAccount.DisplayName for example)
Next oAccount
End Sub
In the latter case:
Sub getFolder()
Set oNS = Application.GetNamespace("MAPI")
For Each oFolder In oNS.Folders
'your code goes here (read oFolder.Name for example)
Next oFolder
End Sub
******************************edit****************************
Try replacing getemailaddress(2) with fnGetSecondAdress("theEmailDomainYouReLookingFor")
and add below function to your code
Function fnGetSecondAdress(strDomain As String)
Dim strAddress As String
Set oNS = Application.GetNamespace("MAPI")
For Each oFolder In oNS.Folders
If InStr(1, oFolder.Name, strDomain, vbTextCompare) >= 1 And InStr(1, oFolder.Name, "Public Folders", vbTextCompare) = 0 Then
strAddress = oFolder.Name
End If
Next oFolder
fnGetSecondAdress = strAddress
End Function