How to get Global Address Exchange User information using Email Address

[DBSmallwood]

First POST - I am trying to do a similar new module that takes an email address and returns the ExchangeUser. In this working example below(simplified for posting) I use the Emailname to get the email address, manager, job title, etc..
For the new module I have to start with the email address and get the same information. I have only been using VBA for a few years writing reporting macros, and only started venturing into interfacing with outlook.
Thank you

Please Login or Register  to view this content.

[mogul]

You probably need to loop through list to get specific user.

Please Login or Register  to view this content.

[WideBoyDixon]

You could add the recipient by email address to a mail, resolve the recipient, then use that to retrieve the exchange user perhaps:

Please Login or Register  to view this content.

WBD

[DBSmallwood]

Thanks, Looping is not an option. There are over 10K entries in the Global Address List. Currently I am able to pull the exact email address, job title, manager, etc, using the Name. I am trying to do the same with the EmailAddress. I appreciate any insite

[DBSmallwood]

Performance is an issue. Is there any direct way like in the example I provided that returns immediate the email data using the email name There are over 10K entries in the Global Address List. Currently I am able to pull the exact email address, job title, manager, etc, using the Name. I am trying to do the same with the EmailAddress. I appreciate any insite

[WideBoyDixon]

Did you see my post? Is resolving a recipient not an option?

WBD

[DBSmallwood]

Thanks, The issue is performance. Creating the mailitem and popping up to 10K email addresses in and out would run for hours. In the current application using the name runs fast. I am amazed that I can retrive the information using the name but not the email address. I appreciate your feedback and suggestion.

[WideBoyDixon]

OK. Perhaps you need to describe your problem in more detail. You didn't mention that this was intended to go in a loop of 10K email addresses. There may be other solutions. Could you post a redacted workbook with, say, 10 spoof email addresses and show us what you're trying to achieve?

WBD

[DBSmallwood]

Thanks and sorry for any confusion. I was hoping that there was a simple solution to get a similar result to this statement. "Set olAddressEntry = olGlobalAddressList.AddressEntries(EmailName)". using the email address and get the information on Name, Job Title, manager, etc...

Set olApplication = CreateObject("Outlook.Application")
Set olNamespace = olApplication.GetNamespace("MAPI")
Set olGlobalAddressList = olNamespace.GetGlobalAddressList()
Set olAddressEntry = olGlobalAddressList.AddressEntries(EmailName) ?

[WideBoyDixon]

Without using a MailItem:

Please Login or Register  to view this content.

WBD

[DBSmallwood]

Excellant, I will give it aa try... Thank you so much for sticking to this I really appreciate it -Dennis