CSDN首创.使用VB读OutLook地址本中的人和组:)

Dim OL As New outlook.Application

Dim OLNameS As outlook.NameSpace

Dim OLFolder As outlook.MAPIFolder

'OlContItem 用于接收单个连系人信息

Dim OLContItem As outlook.ContactItem

'OLDistListItem 用于接收组信息

Dim OLDistListItem As DistListItem

Dim i As Integer

Set OLNameS = OL.GetNamespace("MAPI")

Set OLFolder = OLNameS.GetDefaultFolder(olFolderContacts)

'Set sf = OLFolder.Items.Item(10)

For i = 1 To OLFolder.Items.Count

If TypeName(OLFolder.Items.Item(i)) = "DistListItem" Then

Set OLDistListItem = OLFolder.Items.Item(i)

Debug.Print OLDistListItem.Subject

Else

Set OLContItem = OLFolder.Items.Item(i)

'显示联系人信息

Debug.Print OLContItem.FullName & " " & OLContItem.MobileTelephoneNumber

End If

Next

'OLContItem.Close olDiscard

'OLDistListItem.Close olDiscard

OL.Quit

Set OLFolder = Nothing

Set OL = Nothing

'关闭MAPI对话

OL.Quit