Click here to Skip to main content
Rate this: bad
good
Please Sign up or sign in to vote.
See more: exchange Outlook
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)
 
'********************************************
'OUTPUT
'********************************************

'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
 
'********************************************
'OUTPUT
'********************************************

Exit Function
 
outlookClosed:
userDetail = False
 
Exit Function
 
End Function
Posted 20-Mar-12 12:58pm
Edited 20-Mar-12 13:35pm
(no name)18.1K
v2

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

  Print Answers RSS
0 OriginalGriff 5,170
1 DamithSL 4,357
2 Maciej Los 3,750
3 Kornfeld Eliyahu Peter 3,470
4 Sergey Alexandrovich Kryukov 2,851


Advertise | Privacy | Mobile
Web02 | 2.8.141216.1 | Last Updated 20 Mar 2012
Copyright © CodeProject, 1999-2014
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