求解关于如何取得outlook中联系人的全部资料(100分)

前面已经有人回答利用
Ns:=OutlookApplication1.GetNamespace('MAPI');
Ad:=Ns.AddressLists.Item(Listbox1.ItemIndex+1).AddressEntries;
但是我不明白这两句话的含义，而且我在outlook2000中的联系人中已经添加了3个人的信息
执行之后却发现在listbox1里面只有联系人三个子，而listbox2里面为空的

请教如何操纵？

Ad是取得OUTLOOK里面所有的通讯录，还有另一段程序取得通讯录里的联系人的名称

ADSI可以获取outlook中联系人的全部资料。

不好意思，看错了。

procedure TForm1.FormCreate(Sender: TObject);
var Ns:_NameSpace;
Fd:MAPIFolder;
Im:Items;
ContItem:ContactItem;
i:integer;
begin
self.OutlookApplication1.Connect;
Ns:=OutlookApplication1.GetNamespace('MAPI');
Fd:=Ns.GetDefaultFolder(olFolderContacts);
Im:=Fd.Items;
for i:=1 to Im.Count do
begin
ContItem:=Im.Item(i) as _ContactItem;
ListBox1.Items.Add(ContItem.Email1Address);
end;

self.OutlookApplication1.disConnect;

end;

这里只取了email

接受答案了.