Retrieve smtp mail address from an ex address (exchange)

[martine]

Hello

I'm doin' some outlook programming where I want to retrieve a smtp mail address from an Ex address (exchange). Microsoft Exchange doesnt show the actual address, instead it only shows the name of the person. How can that be done?

Example:
Set objOutlook = CreateObject("Outlook.Application&quot
Set nms = objOutlook.GetNamespace("MAPI&quot
Set fldContacts = nms.GetDefaultFolder(olFolderContacts)
Set itms = fldContacts.Items

'Create a contact item
Set itm = itms.Add("IPM.Contact&quot
For Each itm In itms
'gets only smtp addresses no Ex addresses
strEmail = itm.email1address
Next

Thanks in advance
Martin