Récup du mail dans l'AD

[julius26]

Bonjour à tous,

je cherche à récupérer le mail des utilisateurs de mon active directory.
Voici la fonction que j'ai écrite et j'ai une chaine vide en sortie.

J'ai la même fonction pour récupérer le Full Name de l'utilisateurs. Je remplace oads.mail par oads.fullname et çà fonctionne.

Ai-je oublié qq chose ? Une librairie à installer ?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Function Mail() As String
Dim UserID As String
'Cette fonction permet de récupérer le nom complet de l'utilisateur via LDAP
 
Dim EnvString, Indx, Msg, PathLen, adspath
 
 
'Récupère le nom d'utilisateur
Indx = 1    ' Initialise l'index à 1.
Do
    EnvString = Environ(Indx)    ' Extrait la variable
    If Left(EnvString, 9) = "USERNAME=" Then    ' Vérifie l'entrée USERNAME
        UserID = Mid(Environ(Indx), 10)
        Exit Do
    Else
        Indx = Indx + 1    ' Pas d'entrée USERNAME,
    End If    ' donc incrémente.
Loop Until EnvString = ""
 
On Error Resume Next
 
adspath = "WinNT://6lota/" & UserID
 
Set oads = GetObject(adspath)
 
Mail = oads.Mail
 
End Function

[Godzestla]

Bonjour,

a tout hasard, peux-tu préciser le type de mail utilisé et mieux définir ce que tu entends par

je cherche à récupérer le mail des utilisateurs de mon active directory.

.

[julius26]

bonjour,

voici une impression écran de l'ad dans lequel je veux taper.
j'arrive à récupérer le champ "Nom complet" en faisant oads.fullname.

Je souhaiterai récupérer le champ "adresse de messagerie"

[julius26]

Voici l'impression écran: