Public Function fnGetSMTPAddress(ExchangeMailAddress As String) As String

'MsgBox fnGetSMTPAddress("/o=CNPHJ/ou=CORP/cn=Recipients/cn=0008051″)

Dim objOutlook As Outlook.Application

Dim objMailItem As Outlook.MailItem

Set objOutlook = New Outlook.Application

Set objMailItem = objOutlook.CreateItem(0)

objMailItem.To = ExchangeMailAddress

objMailItem.Recipients.ResolveAll

fnGetSMTPAddress = objMailItem.Recipients.Item(1).AddressEntry.GetExchangeUser.PrimarySmtpAddress

Set objMailItem = Nothing

Set objOutlook = Nothing

End Function