Inquiridor
Como saber o email a partir do username?

Pergunta
-
Todas as Respostas
-
Vc definiu o email no Activedirectory?
se sim use este codigo:
Public Function GetCurUserEmail(ByVal DomainObj As ActiveDs.IADsContainer, ByVal TargetUserID As String) As String Dim User As ActiveDs.IADsUser Dim EmailAddress As String = "" Try If Not DomainObj Is Nothing Then DomainObj.Filter = New Object() {"User"} For Each User In DomainObj Dim UserName As String UserName = Replace(User.Name, "CN=", "") If TargetUserID = UserName Then EmailAddress = User.EmailAddress Exit For End If Next User = Nothing DomainObj = Nothing Return EmailAddress Else Return Nothing End If Catch e As Exception ShowMsgBox(e.Message) Return Nothing End Try End Function
William John Adam Trindade
Analyste-programmeur
----------------------------------------------------------
Sogi informatique ltée -
-
Ola William,
Achei como montar o parametro do ActiveDs.IADsContainer.
Mas agora está dando o erro:
A propriedade de pasta não pode ser encontrada em cache.
Parece que no meu dominio não tem esta informação.
Sei que existe a possibilidade de achar o email pelo outlook server, como?
Ats,
NG