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

 

[Psingh]

I think u will double click that display name u can see the actual email address.

PSingh

 

[smah]

I cant' answer your question, but you might get better responses in the VBA forum - forum707