Como saber o email a partir do username?

Question

Srs,

Tenho uma aplicacao que precisa mandar email para alguns usuarios a partir do seu username.

Como saber o email. sem precisar montar uma tabela relacionando o username com email.

Valeu,

NG

Answer 1

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

fonte:http://kellyschronicles.wordpress.com/2008/07/28/get-user-email-address-in-active-directory-in-vb-net/

att

---

William John Adam Trindade
Analyste-programmeur
----------------------------------------------------------

Sogi informatique ltée

Answer 2

Ola William,

Montei um pequeno exemplo com a rotina acima, acrescentei a referencia a ActiveDS.

Agora preciso saber qual parametro eu passo no DomainObj.

Ats,

NG

Answer 3

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