Discussion :

[stdonat]

Bonjour

J’ai cherché longtemps sur le forum mais je n’arrive pas à finaliser mon besoin.
Avec Excel j’arrive à récupérer le Nom de la personne qui utilise le fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.UserName

Grace à ce nom je souhaiterai récupérer dans le carnet d’adresse global de mon entreprise son adresse mail.
A force de glaner sur le net j’ai bien trouvé des bouts de codes qui me permette de parcourir le carnet d’adresse mais je n’arrive pas savoir où se trouve cachée dans le carnet d’adresse la fameuse adresse mail

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ListeAdresses()
Dim OlApp As Object, y As Object
Dim NS As Object, GaddressList As Object
Dim x As Variant
Set OlApp = CreateObject("Outlook.Application")
Set NS = OlApp.GetNamespace("MAPI")
Set GaddressList = NS.Session.AddressLists("Liste d'adresses Globale").Parent.Item(7)
 
For Each x In GaddressList.AddressEntries
 
Debug.Print x.Name
 
Next
End Sub

Merci de votre aide

[Oliv-]

essaye comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 If x.AddressEntryUserType = olExchangeUserAddressEntry Then
 
           Email = x.GetExchangeUser.PrimarySmtpAddress
 
end if

[stdonat]

Merci en effet cela fonctionne avec cette fonction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function Fo_trouveAdresseMail(pnom As String) As String
Dim olNs As Object
Dim myrecipient As Object
Dim email As String
    Set olNs = GetNamespace("MAPI")
    On Error Resume Next
    Set myrecipient = olNs.CreateRecipient(pnom)
    If Err <> 0 Then
        Fo_trouveAdresseMail = "Pas d'email"
    Else
        email = myrecipient.AddressEntry.GetExchangeUser.PrimarySmtpAddress
        If email = "" Then
            Fo_trouveAdresseMail = pnom
        Else
            Fo_trouveAdresseMail = email
        End If
    End If
End Function