摘要:抓outlook通訊錄
Dim oApp As Outlook.Application = CreateObject("Outlook.Application") Dim oNspc As Outlook.NameSpace = oApp.GetNamespace("MAPI") Dim oContacts As Outlook.Items = oNspc.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts).Items