retrieving email address from outlook through userform

Here's a function that will retrieve the email address of a user given their name. It uses the Outlook application to create a new mail item, add the user name as the recipient and then resolves the names before retrieving the email address of the user.

Private outlookApp As Object
Public Function GetUserEmailAddress(userName As String) As String

Dim mailItem As Object
Dim recipient As Object

If outlookApp Is Nothing Then Set outlookApp = CreateObject("Outlook.Application")

GetUserEmailAddress = "[Not Found]"

Set mailItem = outlookApp.CreateItem(0)
mailItem.Recipients.Add userName
If Not mailItem.Recipients.ResolveAll Then Exit Function
Set recipient = mailItem.Recipients(1)
Select Case recipient.AddressEntry.Type
    Case "SMTP"
        GetUserEmailAddress = recipient.AddressEntry.Address
    Case "EX"
        GetUserEmailAddress = recipient.AddressEntry.GetExchangeUser.PrimarySmtpAddress
End Select

End Function

WBD

hi what if my textbox have more than 1 names , and i want to retrieve all the email address?

How are you separating the names in the textbox? You could separate them with commas like this:

Alice Brooks, Charlie Davies, Erica Fletcher, Gordon Haynes

Then you could use something like this (in conjunction with the previous code):

Private Sub Searchbutton_Click()

Dim nameList As Variant
Dim outputList As String
Dim i As Long

nameList = Split(TextBox1.Text, ",")
For i = 0 To UBound(nameList)
    outputList = outputList & "," & GetUserEmailAddress(Trim(nameList(i)))
Next i
TextBox2.Text = Mid(outputList, 2)

End Sub

WBD