DELPHI中怎样控制outlook,比如怎样读取通讯录(100分)

在server的控件面板上有很多OUTLOOK的控件，其中就包括outlookapplication
我只知道使用outlookapplication.connect，接下去如何利用其他控件读取信息就不知道怎么
操作了[blue][/blue][?]

procedure TForm1.FormCreate(Sender: TObject);
var Ns:_NameSpace;
i:integer;
begin
self.OutlookApplication1.Connect;
Ns:=OutlookApplication1.GetNamespace('MAPI');
for i:=1 to Ns.AddressLists.Count do
ListBox1.Items.Add(Ns.AddressLists.Item(i).Name);
self.OutlookApplication1.disConnect;

end;

procedure TForm1.ListBox1Click(Sender: TObject);
var Ns:_NameSpace;
Ad:AddressEntries;
i:integer;
begin
if Listbox1.ItemIndex<0 then exit;
self.OutlookApplication1.Connect;
Ns:=OutlookApplication1.GetNamespace('MAPI');
//Ns.Logon(emptyparam,emptyparam,true,true);
Ad:=Ns.AddressLists.Item(Listbox1.ItemIndex+1).AddressEntries;

for i:=1 to Ad.Count do
ListBox2.Items.Add(Ad.item(i).name+' '+Ad.item(i).Address);
//Ns.Logoff;
self.OutlookApplication1.DisConnect;
end;
d6下调试通过

我认为你可以仔细参考一下OUTLOOK的帮助文件，里面有所有OutLook的对象、属性和方法，
帮助文件使用Vb脚本，你不难把它们转化成Delphi语句。
另外你可以直接使用Ole，不用VCL控件也可以，我一般的Office编程都不用Delphi自带的
VCL控件。

多人接受答案了。