VB & OutLook Address Book

[Ken OHanlon]

I found this proven VB code on the internet, copy/pasted it but I get a "Method or data member not found" error on the line SET OLA=APPLICATION.SESSION... What am I doing wrong? Thanks -Ken.

Only needs "Microsoft Outlook xx.x Object Library - I used 11.0)

Private Sub cmdAddress_Book_Click()
   '---- create an listbox (I named it ab - Address Book)
   Dim ola As Outlook.AddressList
   Dim ole As Outlook.AddressEntry
 
   On Error Resume Next
   Set ola = Application.Session.AddressLists("Contacts") 
   For Each ole In ola.AddressEntries
       ab.AddItem ole
   Next
   Set ola = Nothing
   Set ole = Nothing
End Sub

[ADezii]

I found this proven VB code on the internet, copy/pasted it but I get a "Method or data member not found" error on the line SET OLA=APPLICATION.SESSION... What am I doing wrong? Thanks -Ken.

Only needs "Microsoft Outlook xx.x Object Library - I used 11.0)
Private Sub cmdAddress_Book_Click()
'---- create an listbox (I named it ab - Address Book)
Dim ola As Outlook.AddressList
Dim ole As Outlook.AddressEntry

On Error Resume Next
Set ola = Application.Session.AddressLists("Contacts")
For Each ole In ola.AddressEntries
ab.AddItem ole
Next
Set ola = Nothing
Set ole = Nothing
End Sub

I can't see how this code would ever work, since you have not fully qualified the Outlook Application Object. The code fails on this line because it expects to find a Method or Property of the Access Application Object, not Outlook, named Session. Of course this Property/Method does not exist. Once you indicate that you are explicitly referring to the Outlook Application Object (Lines 6 and 10), then then Session is a valid Property, and the code should now execute correctly. Be advised that I had no actual way of testing this Theory, I'm just assuming that it is correct.

'---- create an listbox (I named it ab - Address Book)
Dim outApp As Outlook.Application
Dim ola As Outlook.AddressList
Dim ole As Outlook.AddressEntry
 
Set outApp = New Outlook.Application
 
On Error Resume Next
 
Set ola = outApp.Session.AddressLists("Contacts")
 
For Each ole In ola.AddressEntries
  ab.AddItem ole
Next
 
outApp.Close
 
Set outApp = Nothing
Set ola = Nothing
Set ole = Nothing

[Ken OHanlon]

I can't see how this code would ever work, since you have not fully qualified the Outlook Application Object. The code fails on this line because it expects to find a Method or Property of the Access Application Object, not Outlook, named Session. Of course this Property/Method does not exist. Once you indicate that you are explicitly referring to the Outlook Application Object (Lines 6 and 10), then then Session is a valid Property, and the code should now execute correctly. Be advised that I had no actual way of testing this Theory, I'm just assuming that it is correct.

'---- create an listbox (I named it ab - Address Book)
Dim outApp As Outlook.Application
Dim ola As Outlook.AddressList
Dim ole As Outlook.AddressEntry
 
Set outApp = New Outlook.Application
 
On Error Resume Next
 
Set ola = outApp.Session.AddressLists("Contacts")
 
For Each ole In ola.AddressEntries
  ab.AddItem ole
Next
 
outApp.Close
 
Set outApp = Nothing
Set ola = Nothing
Set ole = Nothing

Oh great one, You are correct. My next problem is that the for/next loop finds nothing to add. Is the actual name of MS OutLook Express address book called "Contacts"? I tried Contacts, MyContacts, and even some junk like DFGOIJEGUG and I keep getting the same result. Thanks -Ken.

[ADezii]

Oh great one, You are correct. My next problem is that the for/next loop finds nothing to add. Is the actual name of MS OutLook Express address book called "Contacts"? I tried Contacts, MyContacts, and even some junk like DFGOIJEGUG and I keep getting the same result. Thanks -Ken.

Again, I have no way to test this, but the following code should list all the entries in the Outlook Address Book, and Print them to the Immediate Window, I think (LOL).

Dim outApp As Outlook.Application
Dim ola As Outlook.AddressList
Dim intCounter As Integer
 
Set outApp = New Outlook.Application
 
On Error Resume Next
 
For intCounter = 1 To outApp.Session.AddressLists.Count
  Debug.Print "Address List Entry #" & intCounter & ": " & _
               outApp.Session.AddressLists(intCounter).Name
Next
 
Set outApp = Nothing
Set ola = Nothing
Set ole = Nothing

[Ken OHanlon]

Again, I have no way to test this, but the following code should list all the entries in the Outlook Address Book, and Print them to the Immediate Window, I think (LOL).

Dim outApp As Outlook.Application
Dim ola As Outlook.AddressList
Dim intCounter As Integer
 
Set outApp = New Outlook.Application
 
On Error Resume Next
 
For intCounter = 1 To outApp.Session.AddressLists.Count
  Debug.Print "Address List Entry #" & intCounter & ": " & _
               outApp.Session.AddressLists(intCounter).Name
Next
 
Set outApp = Nothing
Set ola = Nothing
Set ole = Nothing

Oh great one, You are correct AGAIN. The address books name is "Global Address List" OutLook took noticed that I was looking at the address book because it put up a Window informing me that someone was trying to get to my address book and was that OK with me. "Contacts" never got a rise from OutLook!!! My same problem is still that the for/next loop finds nothing to add. Thanks -Ken.

[ADezii]

Oh great one, You are correct AGAIN. The address books name is "Global Address List" OutLook took noticed that I was looking at the address book because it put up a Window informing me that someone was trying to get to my address book and was that OK with me. "Contacts" never got a rise from OutLook!!! My same problem is still that the for/next loop finds nothing to add. Thanks -Ken.

BTW, thanks but absolutely no need for the great one reference. Try these 2 approaches to the problem, and see which, if either one, works:

'---- create an listbox (I named it ab - Address Book)
Dim outApp As Outlook.Application
Dim ola As Outlook.AddressList
Dim ole As Outlook.AddressEntry
Dim intNumOfEntries As Integer
 
Set outApp = New Outlook.Application
 
On Error Resume Next
 
Set ola = outApp.Session.AddressLists("Global Address List")
 
'Try this method first
For Each ole In ola.AddressEntries
  Me![ab].AddItem ole.Name
Next
 
'Try this Method if the first does not work
For intNumOfEntries = 1 To ola.AddressEntries.Count
  Me![ab].AddItem ola.AddressEntries(intNumOfEntries).Name
Next
 
Set outApp = Nothing
Set ola = Nothing
Set ole = Nothing

NOTE: I'm assuming you have either a List or Combo Box named ab on the Active Form and that you are using Access 2002 or greater in order to use the AddItem Method. Are these references True?

[Ken OHanlon]

BTW, thanks but absolutely no need for the great one reference. Try these 2 approaches to the problem, and see which, if either one, works:

'---- create an listbox (I named it ab - Address Book)
Dim outApp As Outlook.Application
Dim ola As Outlook.AddressList
Dim ole As Outlook.AddressEntry
Dim intNumOfEntries As Integer
 
Set outApp = New Outlook.Application
 
On Error Resume Next
 
Set ola = outApp.Session.AddressLists("Global Address List")
 
'Try this method first
For Each ole In ola.AddressEntries
  Me![ab].AddItem ole.Name
Next
 
'Try this Method if the first does not work
For intNumOfEntries = 1 To ola.AddressEntries.Count
  Me![ab].AddItem ola.AddressEntries(intNumOfEntries).Name
Next
 
Set outApp = Nothing
Set ola = Nothing
Set ole = Nothing

NOTE: I'm assuming you have either a List or Combo Box named ab on the Active Form and that you are using Access 2002 or greater in order to use the AddItem Method. Are these references True?

I am using XP, Access 2003, and a List Box. When you helped me find the name of the OutLook Address Book, I only got one NAME back from that routine("Global Address List"). I was always wondering why I had not gotten more NAME's because I have several folders of e-mail addresses. "ola.AddressEntries.Count" = 0. Apparently I found an Address Book but its empty? Thanks -Ken.

[Ken OHanlon]

I am using XP, Access 2003, and a List Box. When you helped me find the name of the OutLook Address Book, I only got one NAME back from that routine("Global Address List"). I was always wondering why I had not gotten more NAME's because I have several folders of e-mail addresses. "ola.AddressEntries.Count" = 0. Apparently I found an Address Book but its empty? Thanks -Ken.

Everytime I mention OutLook, I am talking about OutLook Express. Is this my problem all along? Ken

[ADezii]

Everytime I mention OutLook, I am talking about OutLook Express. Is this my problem all along? Ken

I honestly cannot say one way or the other, Ken.