Private Distribution Lists

Tech-Archive recommends: Fix windows errors by optimizing your registry

From: StevePurvey (steveP.nospam_at_everymessage.net)
Date: 03/28/04 

Date: 28 Mar 2004 02:23:02 -0800

My program is a VB6 add-in for Outlook 2000,2002,2003

I am using Redemption to overcome the security issues. I need to
access the members of Private address lists within contact folders,
specifically I need to access the contact mobile telephone number.

The following code extracts some of the .member properties but not all
are available.

'The following loop gets the contacts from the DistList in the folder

ElseIf sType = "DistListItem" Then
        Set myDistList = oContactFolder.Items.Item(intA)
               For intB = 1 To myDistList.MemberCount
          sAddress = myDistList.GetMember(intB).Address
          sName = myDistList.GetMember(intB).Name
          sEntry = myDistList.GetMember(intB).EntryID
        Next intB
End If

My question is, is there a way of extracting the mobile telephone
number??

Many thanks

Steve P