CSDN首创.使用VB读OutLook地址本中的人和组:)
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
