关于outlook express的问题!

Question

请教高手通过delphi6,如何得到outlook express的邮件帐号和地址簿中的联系人的邮件地址.
多谢高手~~~!

Answer 1

try 
    OlApp:=CreateOleObject('OutLook.Application'); 
    NameSpace:=OlApp.GetNamespace('MAPI');   except 
    showMessage('Outlook registration failed'); 
      Exit; 
     
  end;   ListFolder := NameSpace.GetDefaultFolder(olFolderInbox );   for i := 1 to ListFolder.Items.Count do 
  begin 
    Memo1.Lines.Add(ListFolder.Items[i].Body); 
    {....} 
  end; 
  OlApp := NULL; 
  NameSpace := NULL; 
  OlApp.Quit;    
end; 

Answer 2

果然是高人啊
ListFolder是什么东西?