Accessing Global Address List details with VBA

Status
Not open for further replies.
D

Dugutigi

I have code that reads names from a local Distribution List and looks up the

name in the Global Address List. The purpose is to retrieve a few of the

details about the user that appear in the properties dialog box ... such as

Street Address, City and State.

My problem is that I only have Outlook 2003 which apparently does not have

the GetExchangeUser object. How can I retrieve these pieces of information

without the GetExchangeUser object?

Here is my code so far ... which works as long as I have manually selected

my local Distribution List. Thanks in advance for any help.

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 x As Long

Set oApp = Outlook.Application

' Get the MAPI namespace.

Set oNS = oApp.Session

' Get the Global Address List.

Set oALs = oNS.AddressLists

Set oGal = oALs.Item("Global Address List")

' Get all the entries.

Set oEntries = oGal.AddressEntries

' Get the first user.

Set oEntry = oEntries.GetFirst()

'Get the currently selected distribution list'

Set olkDL = Application.ActiveExplorer.Selection(1)

For intCount = 1 To olkDL.MemberCount

Set olkEntry = olkDL.GetMember(intCount)

For x = 1 To oEntries.Count

strName = olkEntry.AddressEntry.Name

If oEntry.Name = strName Then

Debug.Print oEntry.Name & ";" & oEntry.Address

GoTo NextIntCount

End If

Set oEntry = oEntries.GetNext

Next x

NextIntCount:

Next intCount

Set olkEntry = Nothing

Set olkDL = Nothing
 
D

Dmitry Streblechenko

You will either need to use Extended MAPI (C++ or Delphi only), CDO 1.21

(not installed by default, use AddressEntry.Fields[]) or use Redemption

(RDOAddresEntry - see

http://www.dimastr.com/redemption/rdo/rdoaddressentry.htm)

Dmitry Streblechenko (MVP)

-

"Dugutigi" <Dugutigi> wrote in message

news:6B0AFA99-C01E-4920-86D9-8102AA89B659@microsoft.com...
> I have code that reads names from a local Distribution List and looks up
> the
> name in the Global Address List. The purpose is to retrieve a few of the
> details about the user that appear in the properties dialog box ... such
> as
> Street Address, City and State.

> My problem is that I only have Outlook 2003 which apparently does not have
> the GetExchangeUser object. How can I retrieve these pieces of
> information
> without the GetExchangeUser object?

> Here is my code so far ... which works as long as I have manually selected
> my local Distribution List. Thanks in advance for any help.

> 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 x As Long

> Set oApp = Outlook.Application
> ' Get the MAPI namespace.
> Set oNS = oApp.Session
> ' Get the Global Address List.
> Set oALs = oNS.AddressLists
> Set oGal = oALs.Item("Global Address List")
> ' Get all the entries.
> Set oEntries = oGal.AddressEntries

> ' Get the first user.
> Set oEntry = oEntries.GetFirst()

> 'Get the currently selected distribution list'
> Set olkDL = Application.ActiveExplorer.Selection(1)
> For intCount = 1 To olkDL.MemberCount
> Set olkEntry = olkDL.GetMember(intCount)
> For x = 1 To oEntries.Count
> strName = olkEntry.AddressEntry.Name
> If oEntry.Name = strName Then
> Debug.Print oEntry.Name & ";" & oEntry.Address
> GoTo NextIntCount
> End If
> Set oEntry = oEntries.GetNext
> Next x

> NextIntCount:
> Next intCount

> Set olkEntry = Nothing
> Set olkDL = Nothing
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
RBLampert Accessing Outlook accounts from multiple computers Using Outlook 8
E Accessing shared outlook folder doesn't work since switch to new outlook/excel Outlook VBA and Custom Forms 11
J Accessing calendar items for Resource Mailboxes Outlook VBA and Custom Forms 2
S Outlook [Online - Office365] perfomance is getting affected when accessing the mails using Redemptio Using Outlook 1
J Accessing Hotmail accounts with Outlook 2016 Using Outlook 3
n2b Accessing Plain Text Draft Without Outlook Using Outlook 3
G Issues with accessing Outlook Contact Picture with VBA Outlook VBA and Custom Forms 4
M Accessing ExpiryTime property Outlook VBA and Custom Forms 1
M Accessing BCM with Excel / Running Reports BCM (Business Contact Manager) 1
C Problem accessing events for folder "username" Server Threw Exception Calendar Printing Assistant 1
P accessing custom task pane with Outlook ActiveInspector Using Outlook 1
mikecox Accessing Outlook on my Win7 desktop from Win8 laptop Using Outlook 1
A "Unable to display the folder" error when accessing Group mailbox Using Outlook 0
Commodore Accessing mail from multiple devices Using Outlook 1
S Programmatically accessing Outlook Calendar data Using Outlook 1
E Accessing User Defined Fields in BCM Database part 2 BCM (Business Contact Manager) 0
E [SOLVED] Accessing User Defined Fields in BCM Database part 1 BCM (Business Contact Manager) 9
K trying to sync my samsung galaxy to my outlook 2010 calender. it says execution privilege prevents me from accessing outlook Using Outlook 1
P time delay between accessing Outlook file folders, up 20+ second delay Using Outlook 1
S Accessing source information Using Outlook 1
J After Window update of 12/15/2010, outlook 2007 gives error (0x800CCC18) when accessing gmail using Using Outlook 6
S Outlook 2010 freezes and not responding when accessing, moving or deleting files Using Outlook 2
N Problems accessing network files via OWA Using Outlook 5
M Mails get deleted accessing a user mailbox with a different user Using Outlook 2
N Shared Calendar in Public folder hangs when accessing from Outlook 2010 Exchange Server Administration 2
X Accessing a shared email folder - How? Exchange Server Administration 1
H Accessing a backup Using Outlook 3
J Problems accessing console of Exchange 2010 on Windows Server 2008 R2 Please help me Exchange Server Administration 4
S Accessing emails in a closed account Using Outlook 1
E Users get login prompt in Outlook 2007 when accessing Exchange Server 2007 Using Outlook 2
H accessing shared calendar in outlook 2007 Using Outlook 3
A BCM-Problem Accessing Database Using Outlook 1
K Outlook 2010 now freezes while accessing Gmail Using Outlook 3
S Accessing items in incoming emails. Using Outlook 1
T Accessing Exchange Server 2010 using Mac Mail 4.3 Using Outlook 3
R Accessing folder 'Other Contacts' Outlook VBA and Custom Forms 1
E Accessing a Form Region from an Inspector Outlook VBA and Custom Forms 3
E Accessing a Form Region from an Inspector Outlook VBA and Custom Forms 3
V Error 4202 when accessing hotmail account in Outlook 2010 Using Outlook 52
H Accessing a control on a frame in Outlook with VBScript Outlook VBA and Custom Forms 1
D IIS Returns HTTP 505 Version Not Supported when accessing Microsoft-Server-ActiveSync Exchange Server Administration 47
K Programmatically accessing Outlook properties Outlook VBA and Custom Forms 3
K assistant accessing from her home computer BCM (Business Contact Manager) 2
A Accessing .pst folder in outlook using VBA Code Outlook VBA and Custom Forms 4
J Outlook closes when accessing History in BCM BCM (Business Contact Manager) 4
B Accessing Outlook 2003 Signature Programmatically using C# Outlook VBA and Custom Forms 6
L Outlook Forms-Accessing Outlook VBA and Custom Forms 1
C Accessing _RecipientControl1 (Assigned To) Outlook VBA and Custom Forms 2
K Accessing contact's custom properties in a Outlook 2007 form region Outlook VBA and Custom Forms 1
V Outlook custom form - installing and accessing Outlook VBA and Custom Forms 1

Similar threads

Top