Récupérer adresses mails de la liste globale d'adresses Outlook

Bonjour,

tout est dans le titre : j'ai un nom et un prénom, et je voudrais savoir si c'est possible de récupérer son adresse mail dans la liste d'adresses globale de mon Outlook depuis une base de données Access 2000, dans mon code VB.
J'ai bien trouvé ceci : http://www.vbfrance.com/codes/CARNET-ADRESSE-OUTLOOK-VERS-EXCEL-OFFICE-2003-VS_45694.aspx mais ça ne fonctionne qu'avec le dossier Contacts, peut-être y a-t-il un moyen de l'adapter pour accéder à la liste d'adresses globale ?
J'ai également trouvé ce lien : [ Lien ] mais par cette méthode, on ne peut à priori pas récupérer l'adresse mail...

Quelqu'un a une idée ?
Merci

Bonjour

J'ai écrit la procédure ci-dessous en VBA Excel, mais je pense que tu n'auras aucune difficulté pour l'adapter pour Access.

Option Explicit
Sub liste_adresses_globales()
    Dim OutlookOlApp As Object
    Dim OutlookNameSpace As Namespace
    Dim nom As String, tabnom(1000) As String
    Dim ptr As Integer
    Dim adlst As AddressList
    Dim cnt1 As Integer
    Dim cnt2 As Integer
    Set OutlookOlApp = CreateObject("Outlook.Application")
    Set OutlookNameSpace = OutlookOlApp.GetNamespace("MAPI")
    cnt1 = 1
    Do Until LCase(OutlookNameSpace.AddressLists(cnt1)) = "liste d'adresses globale" _
        Or cnt1 = OutlookNameSpace.AddressLists.Count
        cnt1 = cnt1 + 1
    Loop
    Set adlst = OutlookNameSpace.AddressLists(cnt1)
    If Not LCase(OutlookNameSpace.AddressLists(cnt1)) = "liste d'adresses globale" Then
        MsgBox "L'application ne parvient pas à accéder à votre 'Liste d'adresses globales' outlook."
        Exit Sub
    End If
    cnt2 = adlst.AddressEntries.Count
    Application.ScreenUpdating = False          ' desactive la mise a jour de l'ecran
    For cnt1 = 1 To cnt2
        DoEvents
        Cells(cnt1, 1).Value = adlst.AddressEntries(cnt1)
    Next
    Application.ScreenUpdating = True           ' reactive la mise a jour de l'ecran
End Sub

Amicalement

Oroena t'a répondu

Voici u code a tourné dans Access.

Email= ChercherAdresseEmail(nom & prenom)


Private Function ResoudreAdresse(ByVal str_adresse As String, Optional obj_adresse As Outlook.AddressEntry) As String

Dim app_outlook As Outlook.Application
Dim obj_message As Outlook.MailItem
Dim obj_destinataire As Outlook.Recipient

Set app_outlook = New Outlook.Application
Set obj_message = app_outlook.CreateItem(olMailItem)
Set obj_destinataire = obj_message.Recipients.Add(str_adresse)
If Not obj_destinataire.Resolve Then
    ResoudreAdresse = ""
    Set obj_adresse = Nothing
Else
    ResoudreAdresse = obj_destinataire.Name
    Set obj_adresse = obj_destinataire.AddressEntry
End If
obj_message.Delete
   
End Function

Function ChercherAdresseEmail(str_contact As String) As String

Dim obj_adresse As Outlook.AddressEntry

If Len(ResoudreAdresse(str_contact, obj_adresse)) > 0 Then
    ChercherAdresseEmail = obj_adresse.Address
Else
    ChercherAdresseEmail = ""
End If

End Function

Bonjour,

merci pour ces réponses, je viens de tester les 2 codes mais ça me donne exactement le même résultat que le 2ème lien que j'ai donné, à savoir une chaîne de caractères "/o=xxxxx/ou=FR/cn=Recipients/cn=yyyyyyy". Je ne vois pas d'adresse mail, peut-être en manipulant 'Recipients' ?..Il doit bien y avoir un moyen de récupérer toutes les infos d'un utilisateur (mail, société, ville etc...) !

Essayer
ChercherAdresseEmail =obj_adresse.RecipAddress

test effectué --> message d'erreur "Propriété ou méthode non gérée par cet objet", ça doit être parce que j'utilise Access 2000..

Desole
On ne peut pas avoir linformation aussi simplement
Ce doit etre un pb de protection
Je crois que la recuperation de ladresse email  nest possible que via les contacts

Bonjour,

encore une autre piste avec ceci :
http://209.85.229.132/search?q=cache:_kFPYau5aTwJ:download.microsoft.com/download/6/2/7/627bd63a-fc8c-4862-80f2-5e8f5174edaf/cdo.doc+AfficherAdresses()+Dim+objSession+As+MAPI.Session&hl=fr&ct=clnk&cd=2&gl=fr
par contre, ce bout de code ouvre une fenêtre d'Outlook dans laquelle on choisit une liste d'adresses et une personne, et je suis une grosse quiche parce que je n'arrive pas à mettre par défaut la lise d'adresses globale et un nom en particulier, dans le code..Quelqu'un comprend-il ce bout de code ?
Je vais peut-être y arriver..

oups j'ai oublié de vous mettre ça dans le code :

Private Const CdoPR_EMS_AB_PROXY_ADDRESSES = &H800F101E