Carnet d'adresses Outlook Recherche (No Looping?)

Question

Y at-il de toute façon à la boîte de recherche d'adresses Outlook pour un contact en utilisant leur adresse e-mail sans aucune sorte de boucles For? Il y a tellement de contacts dans notre liste de contacts internationaux et il faut une éternité pour parcourir la liste. N'existe-t-il aucune fonction de recherche ou de recherche pouvant être appliquée à la liste de contacts.

Je cherche à obtenir des informations comme le numéro de téléphone et le bureau de l'utilisateur s'ils se trouvent dans la liste de contacts.

Toutes les solutions que j'ai trouvé impliquent une boucle dans la liste des contacts. http://www.ozgrid.com/forum/showthread.php?t=76588

https://msdn.microsoft.com/en-us/library/office/ff869721.aspx

Answer 1

Utilisez Namespace.CreateRecipient/Recipient.Resolve pour résoudre le nom (ou l'adresse) dans le carnet d'adresses. Même si vous transmettez une adresse SMTP, elle sera résolue à un utilisateur de la liste d'adresses globale (s'il existe une correspondance).

Answer 2

C'est la solution que j'utilise pour obtenir le téléphone # d'un contact avec l'adresse e-mail du carnet d'adresses global - en utilisant Dmitry approche Streblechenko.

Sub GetPhone(EmailAddress As String) 'Gets the phone # for contact 
Dim OutApp As Outlook.Application 
Dim OutMail As Object 
Dim OutRecipients As Outlook.Recipient 
Dim PhoNe As String 


On Error Resume Next 
Set OutApp = CreateObject("Outlook.Application") 
Set OutMail = OutApp.CreateItem(0) 

Set OutRecipients = OutMail.Recipients.Add(EmailAddress) 
OutRecipients.Resolve 

PhoNe = OutRecipients.AddressEntry.GetExchangeUser.BusinessTelephoneNumber 
Set OutRecipients = Nothing 
Set OutMail = Nothing 
Set OutApp = Nothing 
On Error GoTo 0 
End Sub