I didn't see an easy way to integrate this into the current code stage without tearing some things apart, so I made it as a separate action, leveraging PrimarySmtpAddress. I'm attaching the XML in a txt file, built in 6.7. You should be able to copy the contents to a clipboard, then paste it in as a new action tab in your VBO.
Alternatively, below is the code stage that I wrote if you want to get it working on your own. It takes the display name and current Outlook profile as an input, then spits out the e-mail address of the display name you've supplied.
Inputs
=====
Profile - Text - Profile name in Outlook, not inbox account e-mail address
displayName - Text - Use one of the names placed in the To/CC field(s) currently populated by the Outlook VBO
Outputs
======
smtpName - Text - The actual e-mail address associated with the display name being checked
Dim app = CreateObject("Outlook.Application")
Dim _nameSpace = app.GetNameSpace("MAPI")
Dim olSharedRecip as object
Dim oEU as Object 'Outlook.ExchangeUser
if Profile <> "" then
_nameSpace.Logon(Profile, , True, True)
end if
olSharedRecip = _nameSpace.CreateRecipient(displayName)
olSharedRecip.Resolve
if olSharedRecip.Resolved then
select case olSharedRecip.AddressEntry.AddressEntryUserType
Case 0, 5 'olExchangeUserAddressEntry & olExchangeUserAddressEntry
oEU = olSharedRecip.AddressEntry.GetExchangeUser
if not (oEU is nothing) then
smtpName = oEU.PrimarySmtpAddress
end if
Case 10, 30 'olOutlookContactAddressEntry & 'olSmtpAddressEntry
smtpName = olSharedRecip.AddressEntry.Address
end select
end if------------------------------
Ami Barrett
Sr Product Consultant
Blue Prism
Plano, TX
------------------------------
