Printable View
I have a combo box where i want the user to select a name address in my global adress list.
How can i get all the names of my address list to add it in the combo?
I already look for this, but only get information of displaing folders, messages, and x validations...
tks
JP- I rate all the help
What is global address list? Is it a list box or what?
Iouri Boutchkine
[email protected]
Hello:
If I understand you correctly, what you can do is put global addresses into a database and use ADO to get information from Combo:
Do Until Adodc1.Recordset.EOF
Combo1.AddItem (Adodc1.Recordset.Fields(1).Value)
Adodc1.Recordset.MoveNext
Loop
Good Luck
No. I really want to get all names in my Outlook Global Adress List.
No Iouri. I really want to get all the names in my Outlook Global Adress List and put him in a combo box. I just dont know how can i do this.
hello,
u should user the Microsoft Outlook Object Library.
Dim myNameSpace As Outlook.NameSpace
Set myNameSpace = Application.GetNameSpace("MAPI")
Dim myGAddressList as Outlook.AddressList
Set myGAddressList = myNameSpace.AddressLists _("Global Address List")
Dim myAddressEntries As Outlook.AdressEntries
Set myAddressEntries= myAddressList.AddressEntries
For i=1 to myAddressEntries.Count
Combo1.AddItem (myAddressEntries.Item(i).Name)
Next i
Perhaps it will helo u.
Jens-Uwe
Tks Jens-Uwe,
Was a nice tip, however i had to create a application object. Worked like this:
Dim myOlapp As Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myGAddressList As Outlook.AddressList
Dim myGAddressEntries As Outlook.AddressEntries
Set myOlapp = CreateObject("Outlook.Application")
Set myNameSpace = myOlapp.GetNamespace("MAPI")
Set myGAddressList = myNameSpace.AddressLists("Global Address List")
Set myGAddressEntries = myGAddressList.AddressEntries
For i = 1 To myGAddressEntries.Count
cmbEmail.AddItem (myGAddressEntries.Item(i).Name)
Next i
Tks again.
JP- I rate your help