No, not with the Outlook object model.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
The most effective way to assign Outlook categories:
http://www.shareit.com/product.html?...4&languageid=1
(German: http://www.VBOffice.net/product.html?pub=6)


Am 6 Mar 2007 22:17:43 -0800 schrieb bony_tony:

I can't install anything like that on my work computer.
The only reason I want the email address is so that I can identify if
the person is from NZ or Australia. This information is also stored
under the senders details when I double click their name, they are
located in the global address book. Is there any way I can pull out
their Country/Region from there?

Thanks
Tony

On Mar 7, 5:09 pm, "Michael Bauer [MVP - Outlook]"
wrote:
In that case you can't read the SMTP address via Outlook object model.
Instead, you'd need to use either CDO 1.21 or Redemption
(http://www.dimastr.com). Then read PR_EMAIL (&H39FE001E) property to
obtain
the SMTP address from an AddressEntry object.
Seehttp://www.outlookcode.com/d/code/getsenderaddy.htm#redemptionfor an
example.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
The most effective way to assign Outlook categories:
http://www.shareit.com/product.html?...4&languageid=1
(German:http://www.VBOffice.net/product.html?pub=6)

Am 6 Mar 2007 19:35:34 -0800 schrieb bony_tony:



Hi, I've got the code below which extracts the subject and senders
name of emails in a specific folder, however, when I ask for
SenderEmailAddress, it is returning something like, /O=HAYS/OU=HAYS
ADMINISTRATIVE GROUP/CN=RECIPIENTS/CN=NXPEA which i'm guessing is the
internal reference for the person. How do I amend the code so that I
get their actual email address? ie ....?

Sub GetFromInbox()

Dim olApp As Outlook.Application
Dim olNs As NameSpace
Dim Fldr As MAPIFolder
Dim olMail As Variant
Dim i As Integer

Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")
Set Fldr = olNs.Folders("Public Folders").Folders("All Public
Folders").Folders("SYD").Folders("CredCheck-CP")
i = 1

For Each olMail In Fldr.Items
ActiveSheet.Cells(i, 1).Value = olMail.Subject
ActiveSheet.Cells(i, 2).Value = olMail.SenderName
ActiveSheet.Cells(i, 3).Value = olMail.SenderEmailAddress
i = i + 1
Next olMail

Set Fldr = Nothing
Set olNs = Nothing
Set olApp = Nothing

End Sub- Hide quoted text -

- Show quoted text -