Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 384
  • Last Modified:

Use Late Binding To Read Address Book in Outlook

Hi,

I am trying to turn this into a late binding function to read the exchange address book within Outlook for vb.net using VS2003 but I suspect on any version. The reason I am using this is my boss does not want to have to import the reference for Outlook. Thanks for any help. This works if not using late binding. Thanks for any help.
 
Sub Main()
 
        ' TODO: Replace My DL Name with a valid distribution list name.
        Dim sDLName As String = "My DL Name"
 
        ' Create an Outlook application.
        Dim oApp As Outlook._Application = New Outlook.Application()
 
        ' Get the MAPI namespace.
        Dim oNS As Outlook.NameSpace = oApp.Session
 
        ' Get the Global Address List.
        Dim oALs As Outlook.AddressLists = oNS.AddressLists
        Dim oGal As Outlook.AddressList = oALs.Item("Global Address List")
        Console.WriteLine(oGal.Name)
 
        ' Get a specific Distribution List.
        Dim oEntries As Outlook.AddressEntries = oGal.AddressEntries
        ' Reference the Distribution List by name.
        Dim oDL As Outlook.AddressEntry = oEntries.Item(sDLName)
 
        Console.WriteLine(oDL.Name)
        Console.WriteLine(oDL.Address)
 
        ' Get all the members of the Distribution List.
        oEntries = oDL.Members
        Dim oEntry As Outlook.AddressEntry
        Dim i As Integer
 
        For i = 1 To oEntries.Count
            oEntry = oEntries.Item(i)
            Console.WriteLine(oEntry.Name)
        Next
 
        ' Clean up.
        oEntry = Nothing
        oEntries = Nothing
        oGal = Nothing
        oALs = Nothing
        oNS = Nothing
        oApp = Nothing
    End Sub

Open in new window

0
scorpion53061
Asked:
scorpion53061
  • 6
  • 3
1 Solution
 
Wayne Taylor (webtubbs)Commented:
Try this....
    Sub Main()
 
        ' TODO: Replace My DL Name with a valid distribution list name.
        Dim sDLName As String = "My DL Name"
 
        ' Create an Outlook application.
        Dim oApp As Object = CreateObject("Outlook.Application")
 
        ' Get the MAPI namespace.
        Dim oNS As Object = oApp.Session
 
        ' Get the Global Address List.
        Dim oALs As Object = oNS.AddressLists
        Dim oGal As Object = oALs.Item("Global Address List")
        Console.WriteLine(oGal.Name)
 
        ' Get a specific Distribution List.
        Dim oEntries As Object = oGal.AddressEntries
        ' Reference the Distribution List by name.
        Dim oDL As Object = oEntries.Item(sDLName)
 
        Console.WriteLine(oDL.Name)
        Console.WriteLine(oDL.Address)
 
        ' Get all the members of the Distribution List.
        oEntries = oDL.Members
        Dim oEntry As Object
        Dim i As Integer
 
        For i = 1 To oEntries.Count
            oEntry = oEntries.Item(i)
            Console.WriteLine(oEntry.Name)
        Next
 
        ' Clean up.
        oEntry = Nothing
        oEntries = Nothing
        oGal = Nothing
        oALs = Nothing
        oNS = Nothing
        oApp = Nothing
    End Sub

Open in new window

0
 
scorpion53061Author Commented:
Ok this is getting me somewhere but will have an error here for you a second.

First, how to suppress the alert?
Second I don't want ot see the address book. I want ot read the entries. For some reason it is showing me the entries dialog.

Thank you much for your help!
0
 
Wayne Taylor (webtubbs)Commented:
scorpion53061,

I can't test at the moment (no Outlook), but I see no reason why it would act any differently to when you were using early binding. Did the alert popup before?

Wayne
0
Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

 
scorpion53061Author Commented:
Ok here is the error (in picture file) and code as it stands now.

' Create an Outlook application.
        Dim oApp As Object = CreateObject("Outlook.Application")

        ' Get the MAPI namespace.
        Dim oNS As Object = oApp.Session

        ' Get the Global Address List.
        Dim oALs As Object = oNS.AddressLists
        Dim oGal As Object = oALs.Item("Global Address List")
        Debug.WriteLine(oGal.Name)

        ' Get a specific Distribution List.
        Dim oEntries As Object = oGal.AddressEntries
        ' Reference the Distribution List by name.
        Dim oDL As Object = oEntries.Item(1)

        Debug.WriteLine(oDL.Name)
        Debug.WriteLine(oDL.Address)

        ' Get all the members of the Distribution List.
        oEntries = oDL.Members

        Dim oEntry As Object
        Dim i As Integer

        For i = 0 To oEntries.Count - 1
            oEntry = oEntries.Item(i)
            Debug.WriteLine(oEntry.Name)
        Next

        ' Clean up.
        oEntry = Nothing
        oEntries = Nothing
        oGal = Nothing
        oALs = Nothing
        oNS = Nothing
        oApp = Nothing

Picture.jpg
0
 
scorpion53061Author Commented:
No this error did not appear when using early binding. Again thank you for your help.
0
 
Wayne Taylor (webtubbs)Commented:
Do these 2 lines write something?

    Debug.WriteLine(oDL.Name)
    Debug.WriteLine(oDL.Address)
0
 
scorpion53061Author Commented:
Yes they do.
0
 
scorpion53061Author Commented:
Well if I do the loop onGal it will show users but there appears no way to overcome the security prompt issue which makes it useless to me. But I will give you the points for your efforts. And thank you.
0
 
scorpion53061Author Commented:
It doesnt overcome the security prompt issue but in no way is that the fault of the individual working with me.
0

Featured Post

How to Use the Help Bell

Need to boost the visibility of your question for solutions? Use the Experts Exchange Help Bell to confirm priority levels and contact subject-matter experts for question attention.  Check out this how-to article for more information.

  • 6
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now