Outlook 2000: How do I retrieve an Email Address

[IanGalletly]

Once I have a objMailItem set up, how do I get to the actual email address of the recipient if the recipient is recognised by outlook and therefore the '.To' returns the 'Display Name' rather than the email address.

I'm sure this should be blindingly simple - I'm just going round in circles!



Set objOutlook = CreateObject("Outlook.Application&quot
Set objNameSpace = objOutlook.GetNamespace("MAPI&quot

Set objInBoxFolder = objNameSpace.GetDefaultFolder(olFolderInbox)


For Each objMailItem In objInBoxFolder.Items

With objMailItem

OTE_InBoxTo = .To

' Need OTE_InBoxTo to have actual email address
' e.g. ian.galletly@host.co.uk
' If ian.galletly@host.co.uk is setup as a contact's
' email Address I'm getting 'Ian Galletly'


End With

Next objMailItem



Any help would be appriciated

 

[oharab]

Don't know much about it myself (we use lotus notes here ) but there is an article on

http://www.winnetmag.com/Articles/Index.cfm?ArticleID=8630

about using CDO to get at the address.

hth

Ben

----------------------------------------------
Ben O'Hara

http://www.RobotParade.co.uk

"Where are all the stupid people from...
...And how'd they get so dumb?"
NoFX-The Decline
----------------------------------------------