Please help, I got this far: Const intContactFolder As Integer = 1 Dim objOutlook As Outlook.Application = New Outlook.Application Dim objNS As Outlook.NameSpace = objOutlook.Session '* Get 'Contacts' folder. Dim objAddrList As Outlook.AddressList = objNS.Session.AddressLists(intContactFolder) '* Get first entry in 'Contacts' folder. Dim objAddrEntry As Outlook.AddressEntry = objAddrList.AddressEntries.Item(1) '----- I know I need to convert exchange email address to SMTP email address here: ------ '* Get first address in the book. Dim strEmailAddr As String = objAddrEntry.Members.Item(1).Address Thank you!!