my outlook id is jsmith, how can i get full name as "John Smith" it works
fine if i open outlook on my machine and write this code.

Function get_Fullname()

Dim oSession As MAPI.Session
Dim userName As String
Set oSession = New MAPI.Session
oSession.Logon , , False, False, 0
userName = oSession.CurrentUser.Name
userName = Replace(userName, ",", "")
Set oSession = Nothing
get_Fullname = userName

End Function

suppose in the same machine if some body else has logged in with out setting
their outlook properties the above code doesnot work.

my thought is i want to goto exchange server and get the full name using
the address book....

can anyone help me regd this matter, any hint how to buzz exchange server
and get the main address book.