Results 1 to 3 of 3
  1. #1
    Join Date
    Feb 2002
    Posts
    55

    Unanswered: Accessing the Global Address Book

    The code below will work to pull the Contacts List, but I can't figure out how to adjust it to perform the lookup in the global Address List...

    HELP!

    TIA

    --------------------------------------------------------------------------
    Public Sub OpenOutlookContact(strFullName As String)

    Dim appOutlook As New Outlook.Application
    Dim nsOutlook As NameSpace
    Dim mfContacts As MAPIFolder
    Dim ciContact As ContactItem

    Set nsOutlook = appOutlook.GetNamespace("MAPI")
    Set mfContacts = nsOutlook.GetDefaultFolder(olFolderContacts)

    Set ciContact = mfContacts.Items.Find("[FullName] =" & strFullName)

    If ciContact Is Nothing Then

    Set ciContact = mfContacts.Items.Add
    ciContact.FullName = strFullName

    End If

    ciContact.Display

    End Sub

  2. #2
    Join Date
    Nov 2002
    Location
    San Francisco
    Posts
    251

    Re: Accessing the Global Address Book

    it is not that easy..... you have to use CDO .... check this....



    http://www.cdolive.com/address.htm



    jiri

  3. #3
    Join Date
    Feb 2002
    Posts
    55

    Re: Accessing the Global Address Book

    thanx...

    That gives me a starting point.

    Hirk

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •