Click here to Skip to main content
11,925,851 members (64,291 online)
Rate this:
Please Sign up or sign in to vote.
this works with the "full name" but not an alais
Function userDetail(theAlias As String) As String
Dim olkDL As Outlook.DistListItem
Dim olkEntry As Outlook.Recipient
Dim olkContact As Outlook.ContactItem
Dim intCount As Integer
Dim strAddress As String
Dim strName As String
Dim oApp As Outlook.Application
Dim oNS As Outlook.Namespace
Dim oALs As Outlook.AddressLists
Dim oGal As Outlook.AddressList
Dim oEntries As Outlook.AddressEntries
Dim oEntry As Outlook.AddressEntry
Dim oAlias As Outlook.ContactItem
On Error GoTo outlookClosed
Set oApp = Outlook.Application
On Error GoTo 0
Set oNS = oApp.Session ' Get the MAPI namespace.
Set oALs = oNS.AddressLists ' Get the Global Address List.
Set oGal = oALs.Item("Global Address List") ' Get all the entries.

Alias = LCase(Trim(theAlias))
Set oEntries = oGal.AddressEntries
Set oEntry = oEntries(Alias)

'userDetail = oEntry.GetExchangeUser.JobTitle
'userDetail = oEntry.GetExchangeUser.Alias
'userDetail = oEntry.GetExchangeUser.Department
'userDetail = oEntry.GetExchangeUser.OfficeLocation
'userDetail = oEntry.GetExchangeUser.StreetAddress
'userDetail = oEntry.GetExchangeUser.Address
'userDetail = oEntry.GetExchangeUser.City
'userDetail = oEntry.GetExchangeUser.StateOrProvince
'userDetail = oEntry.GetExchangeUser.MobileTelephoneNumber

'userDetail = oEntry.GetExchangeUser.MobileTelephoneNumber
userDetail = oEntry.GetExchangeUser.OfficeLocation

Exit Function
userDetail = False
Exit Function
End Function
Posted 20-Mar-12 12:58pm
Edited 20-Mar-12 13:35pm

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
Top Experts
Last 24hrsThis month

Advertise | Privacy | Mobile
Web01 | 2.8.151126.1 | Last Updated 20 Mar 2012
Copyright © CodeProject, 1999-2015
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100