Why bother using the bulky ActiveX control or the Outlook OLE interface, when you can use can use the MAPI directly. Here is the sample

Private Type MapiRecip

Reserved As Long

RecipClass As Long

Name As String

Address As String

EIDSize As Long

EntryID As String

End Type

Private Declare Function MAPIResolveName Lib "MAPI32.DLL" Alias

"BMAPIResolveName" (ByVal Session As Long, ByVal UIParam As Long, ByVal

UserName As String, ByVal Flags As Long, ByVal Reserved As Long, Recipient

As MapiRecip) As Long

Public Function Resolve(sName As String)

Dim tRecip As MapiRecip

Dim lTemp As Long

lTemp = MAPIResolveName(0&, 0&, sName, &H1, 0&, tRecip)

If lTemp <> 0 Then Resolve = 0: Exit Function

With tRecip

Resolve = .Address

End With

Call the function like the following:

<Variable> = Resolve("<Full Name>")

If the user exists then the email address will be returned. If the user