Thread: System.Net.Mail question

http://www.thescripts.com/forum/thread103509.html

Well, that looks close to what I need, but after doing some research on MSDN I found the directions for coding into Outlook with VSTO. Basically, I found code here that will loop through all the contacts in your default contact folder and output them to a message box (it'll be nothing to populate it to a listbox or some other control instead). The problem I'm having now is that my default contacts folder is returning absolutely nothing. So it won't output anything. Anyone familiar with VSTO that has any ideas about what i might be doing wrong?

Here is the code that I'm using

Code:

Sub GetOutlookContacts()
        Dim ol As Object
        Dim olns As Object
        Dim objFolder As Object
        Dim objAllContacts As Object
        Dim Contact As Object
        ' Set the application object
        ol = New Microsoft.Office.Interop.Outlook.Application
        ' Set the namespace object
        olns = ol.GetNamespace("MAPI")
        ' Set the default Contacts folder
        objFolder = olns.GetDefaultFolder(OlDefaultFolders.olFolderContacts)
        ' Set objAllContacts = the collection of all contacts
        objAllContacts = objFolder.Items
        ' Loop through each contact
        For Each Contact In objAllContacts
            ' Display the Fullname field for the contact
            MsgBox(Contact.FullName)
        Next
    End Sub

Okay, one more update. Turns out its returning nothing for my default folder because it actually is empty. The way our network is here all the contacts are stored in a Global Contact List that everyone accesses. So, now I ask, anyone know how i can get into that through the object model?