Obtener desde directorio activo nombre y apellido de empleado e email

[maialenlopez]

YA he conseguido que me muestra el nombre y apellido de la persona que se conecte pero necesito obtener el email de esta. ¿Tenéis alguna idea de como hacerlo?
Os dejo el código para conseguir el nombre de la persona y el apellido.

Código vb.net:

Public Function FullName(ByVal user As String, ByVal pass As String) As String
        Dim adsEntry As New DirectoryEntry("LDAP://servername/DC=servername,DC=com", user, pass)
        Dim deSearch As New DirectorySearcher(adsEntry)
        Dim properties() As String = {"fullname"}
        deSearch.SearchScope = SearchScope.Subtree
        deSearch.ReferralChasing = ReferralChasingOption.All
        deSearch.PropertiesToLoad.AddRange(properties)
        deSearch.Filter = "(sAMAccountName=" + user + ")"
 
        Dim result As SearchResult
        result = deSearch.FindOne()
        Dim directoryEntry As New DirectoryEntry
        directoryEntry = result.GetDirectoryEntry()
        Dim displayname As String
        displayname = directoryEntry.Properties("displayname")(0).ToString()
        Return displayname
    End Function